WeightWatchers formular

Jeg er ved at fremstille en VBA formular til min kæreste. Det drejer sig om at hun indtaster oplysninger om dato, mængden(gram, styk, skive osv.)og hvilken madvare hun har spist. Madvare listen ændrer sig alt efter hvilken hovedgruppe hun vælger fra. Programmet returnerer så de valgte oplysninger til en dagbog i et andet ark som her:
Dato:                  Hovedgruppe:      Madvare:      Mængde    Point:
21. juni 2009    Chokolade & slik  Flødebolle    5   

http://www.kingfisherweb.dk/Galleri/displayimage.php?album=34&pos=3
Nu er sagen bare den, at til den liste med de enkelte madvarer knytter der sig et point antal til hver eneste madvare. Det point tal vil jeg også gerne automatisk have overført til en seperat kolonne i dagbogen, når hun vælger en madvare.
Er der nogle der kan hjælpe mig videre med denne opgave?   

Her er nogle af procedurerne:

Private Sub cmdAnnuller_Click()
    Unload Me
End Sub

Private Sub cmdGem_Click()
    If txtDato.Text = "" Then
        MsgBox "Du skal angive en dato."
        txtDato.SetFocus
        Exit Sub
    End If
   
    If txtMængde.Text = "" Then
        MsgBox "Du skal angive en mængde."
        txtMængde.SetFocus
        Exit Sub
    End If
   
    If lstHovedGruppe.Text = "Hovedgrupper" Then
        MsgBox "Du skal angive en hovedgruppe."
        lstHovedGruppe.SetFocus
    End If
   
    If lstMad.Text = "" Then
        MsgBox "Du skal angive en madvare."
        lstMad.SetFocus
    End If
   
    Worksheets("Dagbog").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 = txtDato.Text
        .Offset(0, 1).Value = lstHovedGruppe.Text
        .Offset(0, 2).Value = lstMad.Text
        .Offset(0, 3).Value = txtMængde.Text
    End With
End Sub

Private Sub lstHovedGruppe_Click()
    If lstHovedGruppe.Value = "Brød & brødprodukter" Then
        With lstMad
            .RowSource = "Brød"
            .ListIndex = 0
        End With
       
    ElseIf lstHovedGruppe.Value = "Chokolade & slik" Then
        With lstMad
            .RowSource = "Chokolade"
            .ListIndex = 0
        End With
    End If
End Sub

Private Sub UserForm_Activate()
    txtDato.Text = Format(Now, "dd. mmmm yyyy")
   
    With lstHovedGruppe
        .RowSource = "Hovedgrupper"
        .ListIndex = 0
    End With
End Sub

Jeg bruger Vista Home Premium og VBA 6.5 i Excel 2007