Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
Dim Men As String, Palabra As Long


Private Sub Form_Load()
Timer1.Interval = 1
End Sub

Private Sub Timer1_Timer()
Palabra = Int((Rnd * 5) + 1)
Select Case Palabra
Case 1
        Men = "1 accion" '<- aky pones la accion o palabra
Case 2
        Men = "2 accion" '<- aky pones la accion o palabra

'vas aumentado por ejemplo 
'case 3
'men = "blablabla" y asi sucesivamente , tambien puedes dejar solo el case 1

End Select

KeyResult = GetAsyncKeyState(13)
    If KeyResult = -32767 Then
         SendKeys Men   '
    End If
End Sub