Imports System.Windows.Forms   'Vorher Verweis System.Windows.Forms setzen
Module Module1
    Dim WithEvents t As New Timers.Timer
    Dim ausgabetext As String = ""
    Sub Main()
        CReadLine("Hallo Max Mustermann")
    End Sub
    Private Sub CReadLine(ByVal txt As String)
        ausgabetext = txt
        t.Start()
        Console.ReadLine()
    End Sub
    Private Sub t_Elapsed(ByVal sender As Object, ByVal e As _
      System.Timers.ElapsedEventArgs) Handles t.Elapsed
        SendKeys.SendWait(ausgabetext)
        t.Stop()
    End Sub
End Module