Gentagelse af program

Hej eksperter.
Jeg har levet dette meget simple program:

Module Module1

    Sub Main()
        Dim får As Integer
        Dim nuår As Integer = 2004
            Console.WriteLine("Indtast et årstal: ")
            får = CInt(Console.ReadLine())
            If får >= 2004 Then
            Console.WriteLine("Du kan ikke indtaste et år i fremtiden!")
            End If
            Console.WriteLine("Du er " & nuår - får & " år gammel")
            Console.ReadLine()

    End Sub

End Module

Jeg vil gerne vide hvordan man for den til ikke at køre Du er x år gammel når tallet er over 2005. Og hvordan man når den har skrevet hvor gammel man er skal programmet bare starte forfra.
Jeg går ud fra at det er et let spg.