Module Module1
    Dim Eingabefehler As Boolean
    Dim eingabe, ausgabe As String
    Dim t, m, j, tnr As Integer
    Sub Main()
        Do
            Eingabefehler = False
            Console.Write("Tag:")
            eingabe = Console.ReadLine()
            If (IsNumeric(eingabe)) Then
                t = eingabe
            End If
            If (Not IsNumeric(eingabe) Or t < 1 Or t > 31) Then
                MsgBox("es wurde kein gültiger Wert eingegeben")
                Eingabefehler = True
            End If
        Loop While (Eingabefehler)
        Do
            Eingabefehler = False
            Console.Write("Monat:")
            eingabe = Console.ReadLine()
            If (IsNumeric(eingabe)) Then
                m = eingabe
            End If
            If (Not IsNumeric(eingabe) Or m < 1 Or m > 12) Then
                MsgBox("es wurde kein gültiger Wert eingegeben")
                Eingabefehler = True
            End If
        Loop While (Eingabefehler)
        Do
            Eingabefehler = False
            Console.Write("Jahr:")
            eingabe = Console.ReadLine()
            If (IsNumeric(eingabe)) Then
                j = eingabe
            End If
            If (Not IsNumeric(eingabe) Or j < 1584) Then
                MsgBox("es wurde kein gültiger Wert eingegeben")
                Eingabefehler = True
            End If
        Loop While (Eingabefehler)



        Console.Write("Das eingegebene Datum ist:")
        Console.Write(t)
        Console.Write(".")
        Console.Write(m)
        Console.Write(".")
        Console.WriteLine(j)


    End Sub

End Module