Try
 
    Dim o As Object = 1234UL ' System.UInt64
 
    Dim t As Type = Type.GetType("System.Int32")
    o = Convert.ChangeType(o, t) ' Konvertieren in Typ aus t
 
    Klasse.Datentype = o.GetType ' ==> System.Int32
 
Catch ex As InvalidCastException
    ' Ungültige Typumwandlung
Catch ex As ArgumentNullException
    ' Ungültiger/Unbekannter Typ
End Try