Dim i As Integer
        Dim meintext As String = "1Das:ist:2mein:text3"
        For i = 1 To meintext.Length
            If Not Char.IsLetter(meintext.Substring(i, 1)) And Not _
              Char.IsNumber(meintext.Substring(i, 1)) Then
                'dies ist weder eine zahl noch ein buchstabe
            End If
        Next i