Private Sub Command1_Click(Index As Integer)
Dim NumPressed As Integer
'This code will allow you to enter'the phone number
NumPressed = Index
Text1.SelStart = Len(Text1)
Text1.SelText = Str(NumPressed)

End Sub

Private Sub Command4_Click()
'this code will automatically enter long distance
'code using the (* and # keys)

Text1 = "10 10 220"
End Sub

Private Sub Command5_Click()
Text1 = "10 10 330"
End Sub

Private Sub Command3_Click()
'This will clear the number in the text box
Text1 = ""
End Sub