Imports System.Console
 
Module Module1
    'eine Subroutine, der man eine natürliche Zahl als Anzahl und ein Zeichen 
    'übergibt und die das Zeichen Anzahl mal an den Bildschirm schreibt. 
    Sub Main()
 
        Dim anzahl As Integer, zeichen As Char 
        Dim input As String
        Do
           Write("Bitte natürliche Zahl eingeben: ")
           input = Console.ReadLine()
        Loop While Not Integer.TryParse(input, anzahl) Or anzahl < 1
 
 
        Write("Bitte ein Zeichen eingeben: ")
        zeichen = CChar(ReadLine())
 
        WriteLine(anzahl)
        WriteLine(rechnung(anzahl, zeichen))
 
        Warten()
    End Sub
 
    Function rechnung(ByVal anzahl As Integer, ByVal zeichen As Char) As String
        Return StrDup(anzahl, zeichen)
    End Function
 
    Sub Warten()
        Write("Bitte EINGABE drücken: ")
        ReadLine()
    End Sub
 
End Module