使用Case/Switch和GetType来确定对象

Select Case obj.GetType()
    Case GetType(String)
        ' 对象是字符串类型
    Case GetType(Integer)
        ' 对象是整数类型
    Case GetType(Double)
        ' 对象是双精度类型
    Case Else
        ' 对象是其他类型
End Select

If obj.GetType() Is GetType(String) Then
    ' 对象是字符串类型
ElseIf obj.GetType() Is GetType(Integer) Then
    ' 对象是整数类型
ElseIf obj.GetType() Is GetType(Double) Then
    ' 对象是双精度类型
Else
    ' 对象是其他类型
End If