Dim name as String
Dim vorname as String
Dim tag as Integer
Dim monat as Integer
Dim jahr as Integer
 
name = ReadLine()
vorname = ReadLine()
tag = ReadLine()
monat = ReadLine()
jahr = ReadLine()
 
WriteLine(vorname & " " & name & " " & tag & " " & monat & " " & jahr)

Public Class MainClass
 
    Public Shared Sub main()
        Dim name As String
        Dim vorname As String
 
        Dim tag As Integer
        Dim monat As Integer
        Dim jahr As Integer
        Dim dt As Date
 
        Console.WriteLine("Name eingeben: ")
        name = Console.ReadLine()
        Console.WriteLine("Vorname eingeben: ")
        vorname = Console.ReadLine()
 
        tag = InputNumber("Tag eingeben:", 1, 31)
        monat = InputNumber("Monat eingeben:", 1, 12)
        jahr = InputNumber("Jahr eingeben:", 1950, 2020)
 
        Try
            dt = New Date(jahr, monat, tag)
            Console.WriteLine(vorname & " " & name & " " & _
              tag.ToString & "." & monat.ToString & "." & jahr.ToString)
        Catch ex As Exception
            Console.WriteLine("Unzulässiges Datum")
        End Try
 
        Console.ReadLine()
    End Sub
 
 
    Private Shared Function InputNumber(ByVal label As String, _
                        min As Integer, max As Integer) As Integer
 
        Dim ok As Boolean, number As Integer
 
        Do
            Console.WriteLine(label)
            ok = Integer.TryParse(Console.ReadLine(), number) _
                 AndAlso (min <= number And max >= number)
        Loop While Not ok
 
        Return number
    End Function
 
End Class

using System;
 
namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
        string name;
        string vorname;
        int tag;
        int monat;
        int jahr;
        DateTime dt;
 
        Console.WriteLine("Name eingeben: ");
        name = Console.ReadLine();
        Console.WriteLine("Vorname eingeben: ");
        vorname = Console.ReadLine();
 
        tag = InputNumber("Tag eingeben:", 1, 31);
        monat = InputNumber("Monat eingeben:", 1, 12);
        jahr = InputNumber("Jahr eingeben:", 1950, 2020);
 
        try {
            dt = new DateTime(jahr, monat, tag);
            Console.WriteLine(vorname + " " 
                            + name + ' ' 
                            + tag.ToString() + '.' 
                            + monat.ToString() + '.' 
                            + jahr.ToString());
        }
        catch 
        {
            Console.WriteLine("Unzulaessiges Datum");
        }
 
        Console.ReadLine();
    }
 
 
    private static int InputNumber(string label, int min, int max) 
        {
            bool ok; int number; 
            ok = false;
            number = -1;
 
            while (!ok)
            {
                Console.WriteLine(label);
                ok = Int32.TryParse(Console.ReadLine(), out number) 
                        && ((min <= number) 
                        && (max >= number));
            } 
 
            return number;
        }
    }               
}