RosettaCodeData/Task/User-input-Graphical/VBScript/user-input-graphical.vbs
2026-04-30 12:34:36 -04:00

8 lines
214 B
Text

strUserIn = InputBox("Enter Data")
Wscript.Echo strUserIn
On Error Resume Next
If CLng(InputBox("Input integer 75000")) <> 75000 Then
WScript.Echo "Input is not 75000"
Else
WScript.Echo "Input is 75000"
End If