Option Explicit
 
Private sNum As Variant
 
Private Sub Form_Load()
   sNum = Array("Null ", "Eins ", "Zwei ", "Drei ", "Vier ", "Fünf ", "Sechs ", _
     "Sieben ", "Acht ", "Neun ")
End Sub
 
Private Sub Command1_Click()
   Text2.Text = sNum(Val(Text1.Text))
End Sub

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control