'Beispiel
        Dim str As String = "0;1;2;3;4;5"
 
        'Aufspalten
        Dim parts() As String = str.Split(";"c)
 
        'Umwandeln in Zahl (eventuell invariante Kultur nutzen)
        Dim zahl As Decimal
        If Not Decimal.TryParse(parts(1), zahl) Then
            MsgBox("Keine Zahl gefunden")
        End If
 
        'invariante Kultur
       Dim zahl As Decimal
       If Not Decimal.TryParse(parts(1), Globalization.NumberStyles.Float, _
            Globalization.CultureInfo.InvariantCulture, zahl) Then
            MsgBox("Keine Zahl gefunden")
       End If