Public strPin As String
 
'Das wäre der Code für die Taste 3 
Private Sub Command1_Click()
 
    strPin = strPin & "3"
 
End Sub
 
 
'Das hier is der Code der den Pin auswertet (hier muss er 3333 sein)
Private Sub Command2_Click()
 
    If strPin = "3333" Then
        MsgBox "richtig"
    Else
        MsgBox "nee Ping = " + strPin
    End If
 
End Sub