Hi everyone. Some of you might have read my question about command buttons acting like number buttons on a mobile phone during text message writing.
This was partly resolved here, but now there is a more fun problem!

It works brilliant, I can press button 2 and get a, b, c or 2. The problem now is that because my mobile phone interface's number buttons are all one in the same *lack techy terms*, all of the numbers do the same thing! lol.

Code:
Private Sub cmdnumber_Click(Index As Integer)
'appearances
Image1.Visible = False

    Dim x As Integer
    
        lblnumber.Caption = lblnumber.Caption & Index
        
    For x = 0 To 5
    lblmessage.Caption = msg(x)
    Next x

If lbltextscreen.Visible = True Then
Static click As Integer

Dim abc As String

click = click + 1
    
    Select Case click
        Case 1
            abc = "A"
        Case 2
            abc = "B"
        Case 3
            abc = "C"
        Case 4
            abc = "2"
        Case Is > 3
        click = 0
    End Select
    
    lbltextscreen.Caption = abc
End If
    
End Sub