Hvad gør man så...

Hej

Jeg har et modul der ser sådan her ud:

Option Explicit

Function BeregnBeløbFørMoms(BeløbEfterMoms, MomsPct)
  BeregnBeløbFørMoms = BeløbEfterMoms / (1 + MomsPct)
End Function

Function BeregnBeløbEfterMoms(BeløbFørMoms, MomsPct)
  BeregnBeløbEfterMoms = BeløbFørMoms * (1 + MomsPct)
End Function

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

og en form script der ser sådan her ud:

Private Sub Command1_Click()
Dim resultat, MomsPct
 
If Not IsNumeric(Text1.Text) Then
  Text2.Text = \"FEJL\"
  Exit Sub
End If

MomsPct = GetSetting(AppName:=\"MomsBeregning\", _
Section:=\"Indstillinger\", Key:=\"MomsPct\", Default:=\"0,25\")

Select Case Combo1.ListIndex
Case 0
resultat = BeregnBeløbFørMoms(BeløbEfterMoms:=CCur(Text1.Text), _
MomsPct:=\"MomsPct\")

Case 1
resultat = BeregnBeløbEfterMoms(BeløbFørMoms:=CCur(Text1.Text), _
MomsPct:=\"MomsPct\")

End Select

Text1.Text = Format(Expression:=CCur(Text1.Text), Format:=\"Standard\")
Text2.Text = Format(Expression:=resultat, Format:=\"Standard\")

End Sub

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

Når jeg så trykker på min commandknap så får jeg en fejl 13 type dismact, jeg kan ikke finde fejlen
håber der er der kan for...