Feil i egen funksjon (Expected: =)

[Magnus Holm]

Får en merklig feil i et volum-av-sylinder program jeg nettop har laget:

Private Sub enter_Click()

press (radius.Text, hoyde.Text)

End Sub

 

Public Function press(func, hoy)

If (func = "" Or hoy = "") Then

feil = MsgBox("Skriv inn både lengden og høyden", 0 + vbCritical, "Error")

Else

r = Val(func)

h = Val(hoy)

Label_Result.Visible = True

Result.Visible = True

Result.Text = h * (r ^ 2) * (22 / 7)

End If

End Function

 

Det kommer opp: "Compile Error: Expected: =". Og linja hvor press blir kjørt blir rød...

 

Noen som ser noen elementære feil?

[Jonas]

Bytt ut:

press (radius.Text, hoyde.Text)

Med:

press radius.Text, hoyde.Text

 

Så skal du nok se at det funker.

[Magnus Holm]

Tusen takk!http://vg.no' target='_blank'>