Imports System Imports System.Collections Public Class MainClass Shared Sub Main() Dim a As Integer = 3 Console.WriteLine("a is a value type is " & IsValueType(a)) End Sub Shared Function IsValueType(ByVal thing As Object) As Boolean Return (TypeOf (thing) Is System.ValueType) End Function End Class