Dim x As Object
 
        Dim dbl As Double = 1.5
 
        x = dbl 'Objektivierung eines Double-Wertes
 
        'Casten und Konvertieren --> 1,5 wird 2
        Dim int1 As Integer = CType(x, Integer)
 
        'Nur Casten: scheitert 
        '(Datentyp Double nicht Datentyp Integer)
        Dim int2 As Integer = DirectCast(x, Integer)

 Dim dbl2 As Double = CDbl(x) 'Konvertierung klappt
 
 Dim dbl3 As Double
 If Not Double.TryParse("1,2345", dbl3) Then
    MsgBox("String enthält keinen Double-Wert")
 Else
    'dbl3 enthält den Wert 1,2345 
 End If

 Double.TryParse(x.ToString, dbl3)   '--> 1,5

Dim int3 As Integer
  Integer.TryParse(x.ToString, int3) '--> false / 0