home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2003 February / PCWELT_02_2003.ISO / pcwsoft / Script-Tut.exe / scripts / numeric.vbs < prev    next >
Encoding:
Text File  |  2001-01-22  |  208 b   |  9 lines
  1. Option Explicit
  2. Dim MyNumber
  3.  
  4. MyNumber = InputBox("Bitte geben Sie eine Zahl ein")
  5. if IsNumeric(MyNumber) then
  6.     MsgBox "Eingegebene Zahl: " & MyNumber, 64
  7. else
  8.     MsgBox "Das war keine Zahl.", 48
  9. end if