Valaki elmondaná, hogy ez a VBsript számítás miért nem jó?

Dim a, b, Kod, Fejlec, Uzenet, K1, K2

adat

szamolas

veg

Sub adat()

K1 = "ird be az a oldalt"

K2 = "ird be a b oldalt"

Fejlec = "fejlec"

Kod = vbOKOnly

a = InputBox(K1, Fejlec)

b = InputBox(K2, Fejlec)

MsgBox a, 64, Fejlec

End Sub

Sub szamolas()

K = KeruletSzam(a, b)

End Sub

Sub veg()

ker = "K=" & K

Uzenet1 = MsgBox(ker, Kod, Fejlec)

End Sub

Function KeruletSzam(a, b)

KeruletSzam = a*b

End Function