programmering med vba

hej

jeg har lånt bogen excel 2003 programmering med vba.
Der er en øvelse med gæst forbrug, håber nogle kender den.

for at gemme de enkelte poste når man trykker på gem skriver bogen flg. neden for.

problemet er at den ikke vil godkende der hvor der stå kontant, check, kreditkort efter fulgt af true then, det er vist nok det der true then den ikke kan forstå

Håber på hjelp
Worksheets("gæstforbrug").Activate
Range("a2").Select
If Range("a2").Value = "" Then
    Range("a2").Activate
Else
    Range("a2").CurrentRegion.Select
    ActiveCell.Offset(Selection.Rows.Count, 0).Activate
End If
With ActiveCell
    .Value = Txtværelsesnr.Text
    .Offset(0, 1).Value = TxtGæstnavn.Text
    .Offset(o, 2).Value = LstForbrugtype.Text
    .Offset(0, 3).Value = txtBeløb.Text
    .Offset(0, 4).Value = TxtDato.Text
    If chkdrikkepenge.Value = True Then
        .Offset(0, 5).Value = Txtdrikkepenge.Text
End If
If optpåværelse.Value = True Then
        .Offset(o, 6).Value = "værelse"
    elself optkontant.Value = True then
        .Offset(0, 6).Value = "kontant"
    elself optcheck.Value = True then
        .Offset(0, 6).Value = "check"
    elself optkreditkort.Value = True then
        .Offset(0, 6).Value = "kreditkort"
        .Offset(0, 7).Value = istkorttype.Text
        .Offset(0, 8).Value = Txtkortnummer.Text
        .Offset(0, 9).Value = Txtudløber.Text
    End If
   

End With