Calculatrice VB.net

Module Module1

    Sub Main()

        Dim Choix As String = ""
        Dim V As String = ""
        Dim Va As Double = 0
        Dim Va1 As Double = 0
        Dim Va2 As Double = 0

        Console.WriteLine(" - Calculatrice - ")
        Console.WriteLine()
        Do

            Console.WriteLine(" - Veuillez choisir l'opération a effectuer - ")
            Console.WriteLine()
            Console.WriteLine(" a : Addition ")
            Console.WriteLine(" s : Soustraction ")
            Console.WriteLine(" m : Multiplication ")
            Console.WriteLine(" d : Division ")
            Console.WriteLine()

            Choix = Console.ReadLine

        Loop Until Choix = "a" Or Choix = "s" Or Choix = "m" Or Choix = "d" ' <-- Réecris le texte si la lettre tapée # a, b, c, d

        Do
            Console.WriteLine()
            Console.WriteLine(" - Veuillez choisir un premier nombre - ")
            Console.WriteLine()
            V = Console.ReadLine ' Enregistre la touche tapée
        Loop Until IsNumeric(V) ' Réecris le texte si la valeur tapée n'est pas un nombre

        Va1 = V

        Do
            Console.WriteLine()
            Console.WriteLine(" - Veuillez choisir un second nombre - ")
            Console.WriteLine()
            V = Console.ReadLine ' Enregistre la touche tapée
        Loop Until IsNumeric(V) ' Réecris le texte si la valeur tapée n'est pas un nombre

        Va2 = V

            Select Case Choix

            Case "a" ' Action à faire si le choix est a soit une addition
                Console.WriteLine()
                Console.WriteLine(Va1 & " + " & Va2 & " = " & Va1 + Va2) ' Affichage de l'opération puis calcul

            Case "s" ' Action à faire si le choix est s soit une soustraction
                Console.WriteLine()
                Console.WriteLine(Va1 & " - " & Va2 & " = " & Va1 - Va2) ' Affichage de l'opération puis calcul

            Case "m" ' Action à faire si le choix est m soit une multiplication
                Console.WriteLine()
                Console.WriteLine(Va1 & " x " & Va2 & " = " & Va1 * Va2) ' Affichage de l'opération puis calcul

            Case "d" ' Action à faire si le choix est d soit une division
                Console.WriteLine()
                Console.WriteLine(Va1 & " / " & Va2 & " = ") ' Affichage de l'opération puis calcul
                Console.WriteLine(" Résultat : " & Va1 / Va2)
                Console.WriteLine(" Résultat entier : " & Va1 \ Va2)
                Console.WriteLine(" Reste (ne pas prendre en compte car bug) : " & Va Mod Va2)

        End Select

            Console.Read()

    End Sub

End Module