Module Module1
    Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
      Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    Dim WithEvents t As New Timers.Timer
    Dim txt As String = "2008"
    Sub Main()
        t.Start()
        Console.ReadLine()
    End Sub
 
    Private Sub t_Elapsed(ByVal sender As Object, ByVal e As _
      System.Timers.ElapsedEventArgs) Handles t.Elapsed
        For i As Int32 = 0 To txt.Length - 1
            keybd_event(CByte(Asc(txt.Chars(i))), 0, 0, 0) 'Taste drücken
            keybd_event(CByte(Asc(txt.Chars(i))), 0, 2, 0) 'Taste loslassen
        Next
        t.Stop()
    End Sub
End Module