Public Class cTextToNumbers
 
Shared zeichen() As String = New String() _
{"a", "i", "j", "q", "y", "b", "k", "r", "c", "g", "l", "s", "d", "m", "t", _
"e", "h", "n", "u", "v", "w", "x", "o", "z", "f", "p"}
Shared werte() As Integer = New Integer() _
{1, 1, 1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 6, 7, 7, 8, 8, 9, _
9}
 
Public Shared Function TextToNumbers(ByVal text As String) As Decimal
 
        Dim numbers As New System.Text.StringBuilder(String.Empty)
        Dim index As Integer
 
        If String.IsNullOrEmpty(text) Then
            Throw New ArgumentException("Kein Text gegeben")
        End If
        If text.Length > 29 Then
            Throw New ArgumentException("Text länger als 29 Zeichen")
        End If
 
        For i As Integer = 0 To text.Length - 1
            If Not zeichen.Contains(text(i)) Then
                Throw New ArgumentException("Unzulässiges Zeichen im Text")
            End If
            index = Array.IndexOf(zeichen, CStr(text(i)))
            numbers.Append(werte(index))
        Next i
 
        Return CDec(numbers.ToString)
End Function
 
End Class