Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- MsgBox "Wellcome to Robotics Lab"
- Function opening()
- opening = InputBox("Please enter a number")
- MsgBox "You have selected cube number:" & opening
- End Function
- Function action()
- action = = InputBox("Which action would you like to perform" & vbCrLf & "1: something" & vbCrLf & "2: something else" & vbCrLf & "3: another thing")
- MsgBox "You have selected action number:" & action
- End Function
- Function wantMore()
- wantMore = InputBox("Do you want more fun? 1-Yes 2-No")
- if wantMore=1 Then 'everything that comes after the apostrophe is a comment
- MsgBox "Starting over"
- Elseif wantMore=0 Then
- MsgBox "Why?!"
- Else
- MsgBox "Wrong input!!! Exiting"
- End if
- End Function
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement