Private Sub Command1_Click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 5000
SendKeys Text1.Text
SendKeys "{enter}"
End Sub