例: InputBox function

' Ask the user for an integer. Convert user input
' from a string to an integer.
Dim num As Integer
num% = CInt(InputBox$("How many do you want?"))