Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Dim number1: number1 = 0
- Dim number2: number2 = 0
- Do Until number1 > 0
- number1 = CInt(InputBox("Enter number 1:"))
- Loop
- Do Until number2 > 0
- number2 = CInt(InputBox("Enter number 2:"))
- Loop
- MsgBox "Result is: " & (number1 / number2)
Add Comment
Please, Sign In to add comment