Here is a routine that can replace GetType and give a more uniform output.
Sub GetType2(Var As Object) As String
Dim Res As String
Dim VarType As String = GetType(Var)
If VarType.StartsWith("[") Then
Dim SecondChar As String = VarType.SubString2(1,2)
Select Case SecondChar.ToUpperCase
Case "B"
Res = "[Byte]"
Case "C"
Res = "[Char]"
Case "S"
Res = "[Short]"
Case "I"
Res = "[Int]"
Case "J"
Res = "[Long]"
Case "F"
Res = "[Float]"
Case "D"
Res = "[Double]"
Case "L"
Res = "[String]"
Case Else
Res = ""
End Select
Else
Select Case VarType.ToUpperCase
Case "JAVA.LANG.BYTE"
Res = "Byte"
Case "JAVA.LANG.CHARACTER"
Res = "Char"
Case "JAVA.LANG.SHORT"
Res = "Short"
Case "JAVA.LANG.INTEGER"
Res = "Int"
Case "JAVA.LANG.LONG"
Res = "Long"
Case "JAVA.LANG.F"
Res = "Float"
Case "JAVA.LANG.DOUBLE"
Res = "Double"
Case "JAVA.LANG.STRING"
Res = "String"
Case Else
Res = ""
End Select
End If
Return Res
End Sub