Wat doe ik fout ?

[Noobie2010]

Hoi allemaal,
ik moet voor een project op school programmeren(ben van huis uit werktuigbouwkundige dus 0,0 verstand ervan maar verdiep me wel erin nu)in VBA voor Excel en heb een stuk code geschreven voor het oplossen van een wiskundige vergelijking. Echter krijg ik telken een foutmelding in excel (naam?)en ik heb al een hele avond geprobeerd om dit op te lossen. Kan iemand mij hiermee helpen(je hoeft het niet op te lossen zeg maar in welke richting ik moet zoeken)
Dit is de code:

Function Versnelling(St As Single, Vt As Single) As Single
'2/10/2011
'berekening versnelling auto:Vt=V0-A.t
'St=200m;Vt=50km/u(=13,9m/s)
If (0 <= St <= 200) And (0 <= Vt <= 13.9) Then Versnelling = St / Vt
ElseIf St > 0 Then
MsgBox "Error!Check ingevulde parameters en vul opnieuw in"
End If
End Function

Function Tijd(Versnelling As Single, Vt As Single, St As Single) As Single
'2/10/2011
'berekening tijd auto benodigd voor het bereiken van Vt
'St=200m;Vt=13,9m/s
If St <= 0 And Vt <= 0 And A < 0 Then T = Vt / A
ElseIf A > 0 Then
MsgBox "let op!Vertraging"

End Function

[pedorus]

Typ voor de grap eens "Option Explicit" op een regel bovenaan al deze functies, en kies onder Debug voor "Compile VBAProject". Daarnaast is het wellicht handig om "Public" voor de publieke methodes te zetten, en ze in een module te zetten ipv in een form (rechtsklikken in projectvenster, insert->module) als je dat nog niet gedaan hebt.

[Noobie2010]

Werkt voor geen meter hoor en wat bedoel je met "public"voor publieke methodes ?

[Verwijderd]

Open deur, maar wat voor foutmelding krijg je en op welke regel in de code gebeurt dat?

Verder een tip: zet op dit forum om code steeds de code-tags heen. Dat maakt de code een stuk beter leesbaar.

[Noobie2010]

ik krijg de foutmelding op de elseif regel(heb ik geschrapt,2X)opnieuw gecompileerd geen foutmelding.En nogsteeds niets !!

[Verwijderd]

Je mist een End If

[Noobie2010]

pfft ooh ja nu zie ik t,dan maar weer proberen!:(