Hvad er fejlen forstår det ikke !

Hey jeg er ved at lave et bank system (følger bogen Start på Visual Basic 6.0
og det er gået godt hele vejen men nu har jeg et problem ! i kan lige kigge på det her og se om nogle kan finde fejlen ! :

Dim KronerPaaKonto As Single
Dim IndsaetKroner As Single
Dim HaevKroner As Single
Dim RenteSats As Single

Private Sub cmdSetRente_Click()
    RenteSats = Val(txtRenteSats.Text)
End Sub

Private Sub cmdIndsaetPenge_Click()
    IndsaetKroner = InputBox(\"Hvor mange kroner vil du indsætte?\")
    KronerPaaKonto = KronerPaaKonto + IndsaetKroner
    MsgBox IndsaetKroner & \" Kroner indsat på konto\"
End Sub

Private Sub cmdVisSaldo_Click()
    MsgBox \"Der står \" & KronerPaaKonto & \" Kroner på din konto\"
End Sub

Private Sub cmdHaevPenge_Click()
HaevKroner = InputBox(\"Hvor mange kroner vil du hæve?\")
If HaevKroner <= KronerPaaKonto Then
    \'Betingelsen opfyldt - hævning er i orden
    KronerPaaKonto = KronerPaaKonto - HaevKonto
    MsgBox HaevKroner & \" Kroner hævet fra konto\"
Else
    \'Betingelse ikke opfyldt - Ingen hævning
    MsgBox \"Du kan ikke hæve \" & HaevKroner & \" Kr. Der står kun \" & KronerPaaKonto & \" Kr. på kontoen\"
End If
End Sub


Fatter ikke hvad der galt det ser rigtigt ud !