I need to make this code readable but i don't know what is what.
Module Module1
Sub Main()
Dim B1 As Integer
Dim zz As Integer
Dim a As String
Dim thing As String
Dim b As String
Do
Console.WriteLine("A number")
B1 = Console.ReadLine()
Console.WriteLine("Another number")
zz = Console.ReadLine()
Console.WriteLine("What you want to do?")
a = Console.ReadLine()
If a = "*" Then
thing = B1 * zz
ElseIf a = "+" Then
thing = zz + B1
ElseIf a = "/" Then
thing = B1 / zz
ElseIf a = "-" Then
thing = B1 – zz
End If
Console.WriteLine(thing)
Console.WriteLine("X to exit")
b = Console.ReadLine
Loop Until (b = "x")
End Sub
End Module
I know it's long, but please help me! thank you.