Private Sub Command1_Click(Index As Integer)
 
    Dim strChars As String
    Dim strCharArr() As String
 
        Select Case Index
 
            Case 0: strChars = " ;0"
            Case 1: strChars = ".;,;!;1"  'usw
            Case 2: strChars = "a;b;c;2"
            Case 3: strChars = "d;e;f;3"
            Case 4: strChars = "g;h;i;4"
            Case 5: strChars = "j;k;l;5"
            Case 6: strChars = "m;n;o;6"
            Case 7: strChars = "p;q;r;s;7"
            Case 8: strChars = "t;u;v;8"
            Case 9: strChars = "w;x;y;z;9"
 
        End Select
 
        strCharArr = Split(strChars, ";")
 
        If intOldIndex <> Index Then
            intCount = 0
            intOldIndex = Index
 
                Text1.SelStart = Len(Text1.Text)
                Text1.SelText = strCharArr(intCount)
                Text1.SelStart = Len(Text1.Text) - 1
                Text1.SelLength = 1
 
            Timer1.Enabled = False
            Timer1.Enabled = True
        Else
            If intCount = UBound(strCharArr) Then
                intCount = 0
            Else
                intCount = intCount + 1
            End If
 
            Text1.SelText = strCharArr(intCount)
            Text1.SelStart = Len(Text1.Text) - 1
            Text1.SelLength = 1
 
            Timer1.Enabled = False
            Timer1.Enabled = True
        End If
 
End Sub

Mit freundlichen Gr??en,
Andy G.