VB 6.0 Højrestille tal, og indføre 2 tekstfelter til udf. af brug

Nedenstående program er et checkregnskab som jeg har fra bogen "Start på Visual basic 6.0"
Programmet skriver bl.a. indsatte og hævede beløb.
Jeg vil gerne have indsat en mulighed for at tilføje
1)hvem der har indsat pengene - skal altså udfyldes af brugeren og efterfølgende fremgå af udskriften
2)når beløbet er hævet - hvad pengene så er brugt til - skal altså også udfyldes af brugeren og fremgå af den efterfølgende udskrift
3) i udskriften skal tallene stå højrestillede altså pænt under hinanden.
Er det en voldsom opgave for en expert?
Det er det for mig!
Kan jeg få det for 120 point?
Her kommer så hele koden:
Dim KronerPaaKonto As Single
Dim IndsaetKroner As Single
Dim HaevKroner As Single
Dim RenteSats As Single
Dim Brugernavn As String
Dim PINkode As Integer
Dim Transaktion(200) As String
Dim AntalTransaktioner As Integer

Private Sub cmdHaevPenge_Click()
HaevKroner = InputBox("Hvor mange penge vil du hæve?")
    If HaevKroner <= KronerPaaKonto Then
        KronerPaaKonto = KronerPaaKonto - HaevKroner
        MsgBox "Du har hævet " & HaevKroner & " kr. på din konto"
        AntalTransaktioner = AntalTransaktioner + 1
        Transaktion(AntalTransaktioner) = Date & "  Hævet  " & HaevKroner & "      Saldo  " & KronerPaaKonto
    Else
        MsgBox "Du kan ikke hæve " & HaevKroner _
        & " kr. Der står kun " & KronerPaaKonto _
        & " kr. på kontoen", vbInformation
    End If
 
End Sub

Private Sub cmdIndsaetPenge_Click()

IndsaetKroner = InputBox("Hvor mange penge vil du indsætte?")
KronerPaaKonto = KronerPaaKonto + IndsaetKroner
MsgBox "Du har indsat " & IndsaetKroner & " kr. på din konto"
AntalTransaktioner = AntalTransaktioner + 1
Transaktion(AntalTransaktioner) = Date & "  Indsat  " & IndsaetKroner & _
"    Saldo  " & KronerPaaKonto
End Sub

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

Private Sub cmdTilskrivRente_Click()
Dim RenteBeloeb As Single
RenteBeloeb = KronerPaaKonto / 100 * RenteSats
KronerPaaKonto = KronerPaaKonto + RenteBeloeb
MsgBox "Du har fået tilskrevet " & RenteBeloeb & " på kontoen"
End Sub

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

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