Coding VB Console Calculator

Module Module1
 
    Sub Main()
        'write => tulisannya disamping klo writeline tulisannya dibawah
A:      Console.Clear()
        Console.WriteLine("KALKULATOR AJAIB")
        Console.WriteLine("Silahkan Coba")
        Console.WriteLine("------------------------------")
        Console.Write("Masukkan Bilangan Pertama       :  ")
        Dim Angka1 As Integer
        Angka1 = Console.ReadLine()
        Console.Write("Pilih Operasi [ X, /, +, - ]    :  ")
        Dim Operasi As String
        Operasi = Console.ReadLine()
        Console.Write("Masukkan Bilangan Kedua         :  ")
        Dim Angka2 As Integer
        Angka2 = Console.ReadLine()
        Select Case UCase(Operasi)
            Case "X"
                Console.WriteLine()
                Console.WriteLine("------------------------------")
                Console.WriteLine()
                Console.Write("Hasil               :  ")
                Console.Write(Angka1 * Angka2)
            Case "/"
                Console.WriteLine()
                Console.WriteLine("------------------------------")
                Console.WriteLine()
                Console.Write("Hasil               :  ")
                Console.Write(Angka1 / Angka2)
            Case "+"
                Console.WriteLine()
                Console.WriteLine("------------------------------")
                Console.WriteLine()
                Console.Write("Hasil               :  ")
                Console.Write(Angka1 + Angka2)
            Case "-"
                Console.WriteLine()
                Console.WriteLine("------------------------------")
                Console.WriteLine()
                Console.Write("Hasil               :  ")
                Console.Write(Angka1 - Angka2)
            Case Else
                Console.WriteLine()
                Console.WriteLine("Maaf Anda Salah Input !!!")

        End Select
        Console.WriteLine()
        Console.WriteLine("------------------------------")
        Console.Write("Ulangi Lagi ? (Y/N) : ")
        Dim Ulang As String
        Ulang = Console.ReadLine()
        Select Case UCase(Ulang)
            Case "Y"
                GoTo A
            Case Else

        End Select
    End Sub

End Module

F5 Debug Preview...

SEMOGA BERMANFAAT

---