Min kode virker ikke??

Hej
Hvorfor virker min kode ikke? Den viser ikke de penge man har sat ind.. ( Det er noget efter en bog.)
Designet og det kan hentes her.
BEMÆRK: BRUGER NAVN ER BLANK OG PIN-KODE ER 1
http://mms.leol.dk/download/fejl.zip

Koden ser sådan her ud:
Dim KronerPaaKonto As Single
Dim IndsaatKroner As Single
Dim HaevKroner As Single
Dim RenteSats As Single
Dim BrugerNavn As String
Dim PINkode As Integer
Dim Transaktion(200) As String
Dim AntalTransaktion As Integer

Private Sub cmdHaevPenge_Click()
HaevKroner = InputBox("Hvor mange kroner vil du hæve?")
If HaevKroner <= KronerPaaKonto Then
KronerPaaKonto = KronerPaaKonto - HaevKroner
MsgBox "Du har hævet " & HaevKroner & " Kr."
Else
MsgBox "Du kunne ikke hæve " & HaevKroner & "kr. fra kontoen"
End If
End Sub

Private Sub cmdIndsaatPenge_Click()
IndsaatKroner = InputBox("Hvor mange kroner vil du indsætte?")
KronerPaaKonto = KronerPaaKonto + IndsaatKroner
MsgBox IndsaatKroner & " Kr. sat du ind på din konto, så du har nu, " & KronerPaaKonto & " kr. på din konto"
AntalTransaktioner = AntalTransaktioner + 1
Transaktion(AntalTransaktioner) = IndsaatKroner & KronerPaaKonto
End Sub

Private Sub cmdSetRente_Click()
RenteSats = Val(txtRenteSats.Text)
txtTilskrivrenteSats.Caption = "Tilskriv " & RenteSats & "% rente."
End Sub

Private Sub cmdVisListe_Click()
Dim TransID As Integer
List1.Clear
For TransID = 1 To AntalTransaktioner
List1.AddItem Transaktion(TransID)
Next
End Sub

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

Private Sub Form_Load()
Dim brugergodkendt As Boolean
BrugerNavn = InputBox("Hjerte-Banken: Skriv dit navn")
PINkode = InputBox("Velkommen til Hjerte-banken, " & BrugerNavn & ". Skriv venligst din PIN-kode")
If BrugerNavn = "" And PINkode = 1 Then
brugergodkendt = True
Else
brugergodkendt = False
End If
If brugergodkendt = True Then
MsgBox "Navn og kode er godkendt"
Else
MsgBox "Forkert navn eller kode. Programmet vil blive afsluttet"
End
End If
End Sub


Private Sub txtTilskrivrenteSats_Click()
Dim RenteBelob As Single
RenteBelob = KronerPaaKonto / 100 * RenteSats
KronerPaaKonto = KronerPaaKonto + RenteBelob
End Sub