Un programme en VB.net

Module Module1
    Sub Main()
      Console.Write("Entrez votre âge : ") ' on utilise Write pour ne pas faire de saut de ligne
        Dim age = Console.ReadLine() ' on lit ce que l'utilisateur tape
        Console.WriteLine("Vous avez : {0} an(s)", age) ' et on l'affiche
        Console.Write(" _____ _ _           _____         _    _____         _     _   ")
        Console.Write("|  _  |_| |_ ___ ___|     |_ _ _ _| |  |   __|___ ___|_|___| |_ ")
        Console.Write("|     | | '_| . |   |   --| | | | . |  |__   |  _|  _| | . |  _|")
        Console.Write("|__|__|_|_,_|___|_|_|_____|_____|___|  |_____|___|_| |_|  _|_|  ")
        Console.Write("                                                       |_|     v1.0")
        Console.ReadKey() ' on attend que l'utilisateur appuye sur une touche avant de quitter
    End Sub
End Module

Module Module1
    Sub Main()
        Console.Write("Entrez un chiffre entre 1 et 5 : ") ' on utilise Write pour ne pas faire de saut de ligne
        Dim age = Console.ReadLine() ' on lit ce que l'utilisateur tape
        Select Case age
            Case Is = CStr(1)
                Console.WriteLine("Vous avez choisi : un") ' remplacer par le chiffre miroir
            Case Is = CStr(2)
                Console.WriteLine("Vous avez choisi : deux") ' remplacer par le chiffre miroir
            Case Is = CStr(3)
                Console.WriteLine("Vous avez choisi : trois") ' remplacer par le chiffre miroir
            Case Is = CStr(4)
                Console.WriteLine("Vous avez choisi : quatre") ' remplacer par le chiffre miroir
            Case Is = CStr(5)
                Console.WriteLine("Vous avez choisi : cinq") ' remplacer par le chiffre miroir
            Case Else
                Console.WriteLine("Chiffre invalide") 
        End Select
        Console.ReadKey() ' on attend que l'utilisateur appuye sur une touche avant de quitter
    End Sub
End Module