is Numeric Funktion

[Vbscript]

Hi Leute, ich bin neu hier im Forum und auch was programmiertechnisch so anfällt ein vollkommenner Anfänger.

Aber da ich zZ im Geschäft wenig zu tun habe, habe ich mal angef angen mir in vbscript einen Taschenrechner zu programmieren.

Leider bin ich atm an einem Punkt angelangt, wo ich durch lesen und rumsuchen im Internet nichtmehr weiterkomm.

Ich Poste nun einfach ma meinen Code, danach meine Frage:

----------------------------------------------------------

MsgBox "Taschenrechner v0.1"

Dim sqrt

do
 eing = Inputbox("Bitte geben sie ihre Auswahl ein:" & Chr(13) & "1. fuer Addieren" & Chr(13) & "2. fuer Subtrahieren" & Chr(13) & "3. fuer Divison" & Chr(13) & "4. fuer Multiplikation" & Chr(13) & "5. um eine Zahl ins Quadrat zu setzen" & Chr(13) & "6. um die Wurzel aus einer Zahl zu ziehen")

If IsNumeric(eing) then
   If eing=vbfalse then
     wscript.quit
   End if
    If eing > 6 or eing < 1 then
      MsgBox"Error, falsche Eingabe -> Programm beendet!"
      wscript.quit
    End if
 else
   msgbox("Error")
 End if

loop while eing = ""

If eing = 1 then

do
 addZ1=Inputbox("Bitte geben sie die erste Zahl ein, die Sie addieren moechten.")

If addZ1=vbfalse then
  wscript.quit
 End if

loop while addz1 = ""

do
  addz2=Inputbox("Bitte geben sie die zweite Zahl ein, die Sie addieren moechten.")

if addZ2=vbfalse then
   wscript.quit
  End if
loop while addz2 = ""

ergADD = Cdbl(addz1) + Cint(addz2)
 MsgBox"Ergebnis = " & ergADD
End if

If eing = 2 then
do
  subZ1=Inputbox("Bitte geben sie die erste Zahl ein, die Sie subtrahieren moechten.")

if subZ1=vbfalse then
   wscript.quit
  End if
loop while subZ1 = ""

do
  subZ2=Inputbox("Bitte geben sie die zweite Zahl ein, die Sie subtrahieren moechten.")

if subZ2=vbfalse then
   wscript.quit
  End if
loop while subZ2 = ""

ergSUB = cdbl(subZ1) - cdbl(subZ2)
 MsgBox"Ergebnis = " & Cdbl(ergSUB)
End if

If eing = 3 then
do
  divZ1=Inputbox("Bitte geben sie die erste Zahl ein, die Sie dividieren moechten.")

if divZ1=vbfalse then
   wscript.quit
  End if
loop while divZ1 = ""

do
  divZ2=Inputbox("Bitte geben sie die zweite Zahl ein, die Sie dividieren moechten.")

if divZ2=vbfalse then
   wscript.quit
  End if
loop while divZ2 = ""

ergDIV = cdbl(divZ1) / cdbl(divZ2)
 MsgBox"Ergebnis = " & Cdbl(ergDIV)
End if

If eing = 4 then
do
  mulZ1=Inputbox("Bitte geben sie die erste Zahl ein, die Sie multiplizieren moechten.")

if mulZ1=vbfalse then
   wscript.quit
  End if
loop while mulZ1 = ""

do
  mulZ2=Inputbox("Bitte geben sie die zweite Zahl ein, die Sie multiplizieren moechten.")

if mulZ2=vbfalse then
   wscript.quit
  End if
loop while mulZ2 = ""

ergMUL = cdbl(mulZ1) * cdbl(mulZ2)
 MsgBox"Ergebnis = " & Cdbl(ergMUL)
End if

If eing = 5 then
do
  quad=Inputbox("Bitte geben sie die Zahl an, die sie ins Quadrat setzen moechten.")

if quad=vbfalse then
   wscript.quit
  End if
loop while quad = ""

ergQUAD = cdbl(quad) * cdbl(quad)
  MsgBox"Ergebnis = " & Cdbl(ergQUAD)
End if

if eing = 6 then

do
  sqrt=Inputbox("Bitte geben sie die Zahl ein von der sie die Wurzel ziehen moechten.")

if sqrt=vbfalse then
   wscript.quit
  End if
loop while sqrt = ""

ergSQRT = ((sqrt)^(1/2))
   MsgBox(ergSQRT)
End if

----------------------------------------------------------

So nun meine Frage:

Ich möchte die IsNumeric Funktion an jeder meiner Inputbox - abfrage anbringen, leider kommt immer ein Fehler Typen unverträglich "eing"

Entshculdigt bitte meinen schlechten Prog.-stil.

grüße