home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2001 April / PC-WELT 4-2001.ISO / software / wsh / numeric.exe / numeric.vbs
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