VBScript - Was stimmt nicht?

[Biber]

Hallo,

ich bin im VBScript bereich total neu und habe deswegen eine Berechnung von Volumen versucht... versucht, wenn leider mag sie nicht, warum?

MsgBox "Hallo! Hier können Flächen berechnet werden!"

Code:

Sub1(s1)z1 = InputBox("Bitte geben Sie die Länge ein!")If IsNumeric(z1) = False ThenMsgBox "Bitte eine Zahl eingeben!"End IfEnd SubSub2(s2)z2 = InputBox("Bitte geben Sie die Breite ein!")If IsNumeric(z2) = False ThenMsgBox "Bitte eine Zahl eingeben!"End IfEnd SubSub3(s3)z3 = InputBox("Bitte geben Sie die Höhe ein!")If IsNumeric(Zahl) = False ThenMsgBox "Bitte eine Zahl eingeben!"End IfEnd SubErgebnis = CInt(z1) * CInt(z2) * CInt(z3)MsgBox (CStr(Ergebnis))

Ich habe mit 3 Subs gearbeitet, passt ihm das vielleicht nicht??

LG

[28Smiles]

Poste mal die Fehlerausgabe

[MWojt]

Ich habe zwar keine Ahnung von VBS, allerdings denke ich, es könnte daran liegen, dass du "Sub1", "Sub2" usw. geschrieben hast. Ich würde das mal durch "Sub" ersetzen.

//EDIT: Lol, der erste Beitrag ist von vor fast einem Monat. Aber vielleicht hat meine Nachricht ja doch noch irgend einen Sinn.

Edited June 1, 2014 by MWojt

[28Smiles]

MWoijt hat recht du musst die prozeduren nach voldegenden Schema schreiben:

Sub <Name> (<Variablen>)

End Sub