Option Explicit
 
Private tmpString As String ' 'Zwischenspeicher'-Variable declarieren
 
 
Private Sub Text1_KeyPress(KeyAscii As Integer)
    Select Case KeyAscii
    Case vbKey0 To vbKey9 ' Wenn die Ziffern 0 bis neun eingegeben werden, dann 
    ' ...
        Call addTMP(Chr(KeyAscii)) ' aufrufen der Hilfsfunktion addTMP mit 
        ' Übergabe der Ziffer
        KeyAscii = 0 ' Zeichencode auf "Kein Zeichen" zurücksetzen
    End Select
End Sub
 
Private Function addTMP(Zahl As String) ' Hilfsfunktion
On Error Resume Next
    If Not Right(tmpString, 1) = Zahl Then ' wenn eine neue Zahl übergeben 
    ' wurde,
        Call Timer1_Timer ' soll die Berechnung sofortbeginnen
        tmpString = Zahl ' Und die neue Zahl wird dem "Zwischenspeicher" _
          übergeben
    Else
        tmpString = tmpString & Zahl ' Ansonsten wird die neue Zahl mit angefügt
    End If
End Function
 
Private Sub Timer1_Timer()
    Select Case Len(tmpString) ' Anzahl der Zeichen im tmpString erfassen
    Case 4 ' bei vier Zeichen:
        If tmpString = "2222" Then ' wenn 4x die 2 vorkommt, dann
            Text1.SelText = "2" ' wird dem Textfeld die Zahl 2 übergeben
        ElseIf tmpString = "3333" Then ' wenn 4x die 3 vorkommt, dann
            Text1.SelText = "3" ' wird dem Textfeld die Zahl 3 übergeben
        ElseIf tmpString = "4444" Then ' usw.
            Text1.SelText = "4"
        End If
 
    Case 3 ' bei drei Zeichen:
        If tmpString = "111" Then ' wenn 3x die Zahl 1 vorkommt, dann
            Text1.SelText = "1" ' wird dem Textfeld die Zahl 1 übergeben
        ElseIf tmpString = "222" Then ' wenn 3x die Zahl 2 vorkommt, dann
            Text1.SelText = "c" ' wird dem Textfeld der Buchstabe c übergeben
        ElseIf tmpString = "333" Then ' usw.
            Text1.SelText = "f"
        ElseIf tmpString = "444" Then
            Text1.SelText = "g"
        End If
 
    Case 2 ' bei zwei Zeichen:
        If tmpString = "11" Then ' wenn 2x die Zahl 1 vorkommt, dann
            Text1.SelText = vbNewLine ' wird dem Textfeld die 'Enter'-Taste 
            ' übergeben
        ElseIf tmpString = "22" Then ' wenn 2x die Zahl 2 vorkommt, dann
            Text1.SelText = "b" ' wird dem Textfeld der Buchstabe b übergeben
        ElseIf tmpString = "33" Then ' usw.
            Text1.SelText = "e"
        ElseIf tmpString = "44" Then
            Text1.SelText = "h"
        End If
 
    Case 1
        If tmpString = "1" Then ' wenn 1x die Zahl 1 vorkommt, dann
            Text1.SelText = " " ' wird dem Textfeld ein Leerzeichen übergeben
        ElseIf tmpString = "2" Then ' wenn 1x die Zahl 2 vorkommt, dann
            Text1.SelText = "a" ' wird dem Textfeld der Buchstabe a übergeben
        ElseIf tmpString = "3" Then ' usw.
            Text1.SelText = "d"
        ElseIf tmpString = "4" Then
            Text1.SelText = "g"
        End If
    End Select
    tmpString = "" ' Inhalt der Zwischenspeicher-Variable löschen
    Timer1.Interval = 0: Timer1.Interval = 750 ' Timer zurücksetzen
End Sub