Public Function WortNachZahl(ByVal sWord As String) As Integer
  Dim vWords As Variant
  Dim i As Integer
 
  vWords = Array("null", "eins", "zwei", "drei", "vier", _
    "fünf", "sechs", "sieben", "acht", "neun", "zehn")
 
  WortNachZahl = -1
  For i = 0 To UBound(vWords)
    If sWord = vWords(i) Then
      WortNachZahl = i
      Exit For
    End If
  Next i
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de