Fejl håndtering???

Det er nu i stedet en textbox man skal se om der er tekst i... der må kun være tal...

If not isnumeric(TheMoneyField) then .......

Ok tak.. men se her:

Min kode...:

Form1:

Option Explicit

Private Sub cmdHaev_Click()
Haevet = InputBox("Hvor mange penge vil du hæve?")

If Haevet <= Saldo Then
Saldo = Saldo - Haevet
MsgBox Haevet & " kr. hævet fra kontoen..."
Else
MsgBox "Du kan ikke hæve " & Haevet & " kr. Der står kun " & Saldo & " kr. på kontoen..."
End If
End Sub

Private Sub cmdIndsaet_Click()
Indsaet.Show

If Cancel = False Then
lbl1.Caption = Indsat
Saldo = Saldo + Indsat
MsgBox Indsat & " kr. indsat på kontoen..."
End If
End Sub

Private Sub cmdSaldo_Click()
MsgBox "Der står i øjeblikket " & Saldo & " kr. på kontoen..."
End Sub

Private Sub Form_Load()
Saldo = CLng(GetSetting("Bankbog", "1.0", "Penge", "0"))
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call SaveSetting("Bankbog", "1.0", "Penge", CStr(Saldo))
End Sub

Form2:

Option Explicit

Private Sub cmdCancel_Click()
Cancel = True
Me.Hide
End Sub

Private Sub cmdOk_Click()
Cancel = False
Indsat = txtIndsat.Text
Me.Hide
End Sub

Modulet:

Public Indsat As Single
Public Haevet As Single
Public Saldo As Single
Public Cancel As Boolean


Håber du kan overskue det...

Problemet er at når trykker indsæt penge på form 1 så kommer form2 men den vil ikke registrere det tal som jeg skriver i txtIndsat det bliver bare nul og så indsætter den jo ingen penge...

Jeg er ret sikker på at problemmet ligger i at:

Private Sub cmdIndsaet_Click()
Indsaet.Show

If Cancel = False Then
lbl1.Caption = Indsat
Saldo = Saldo + Indsat
MsgBox Indsat & " kr. indsat på kontoen..."
End If
End Sub


Først vises Form2 (Indsaet) men hvor den burde (tror jeg da kan godt være jeg er forkert på den) køre koden over på den anden form først så tar den først resten af koden og så det på form2 og udregningen bliver derfor ikke lavet med det givne tal...

Det er ligemeget... fandt selv ud af det...


Tak for hjælpen...