advanced - need help - replacing keystrokes

Try this:

Private Declare Function GetAsyncKeyState _
Lib "user32" (ByVal vKey As Long) As Integer

Private Sub Timer1_Timer()
If GetAsyncKeyState(vbKeyA) Then Text1.text = "b"
End Sub