ListBox

Hej.
Her er en kode til et "Bestillings-program":

'---Kode Start---
Dim varenr
varenr = List1.ListIndex
Private Sub Command1_Click()
If email.Text = "" Or email.Text = " " Then
MsgBox "Skriv venligst din e-mail adresse."
Else
ProgressBar1.Min = 0
ProgressBar1.Max = 100
ProgressBar1.Value = 0
Timer1.Enabled = True
Dim a As Long
    Randomize
    a = Rnd(1000) * 90000
MsgBox "Når de to popups kommer frem, skal du bare trykke 'Send'."
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = "XxXxXxXxX@XxXxXxXxX.Xx"
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = Navn.Text & " vil gerne bestille noget."
MAPIMessages1.MsgNoteText = "Navn: " & Navn.Text & vbNewLine & "Adresse: " & Adresse.Text & vbNewLine & "Postnr.: " & postnr.Text & vbNewLine & "By: " & by.Text & vbNewLine & "Telefon-nummer: " & Telefon.Text & vbNewLine & "Takke-brev er sendt til: " & email.Text & vbNewLine & "Vare: " & varenr & vbNewLine & "Beskrivelse " & RichTextBox1.Text & vbNewLine & "Personlig kode: " & a
MAPIMessages1.Send
'-----------------------------------------------
MAPIMessages1.SessionID = MAPISession1.SessionID
MAPIMessages1.MsgIndex = -1
MAPIMessages1.Compose
MAPIMessages1.RecipAddress = email.Text
MAPIMessages1.AddressResolveUI = True
MAPIMessages1.ResolveName
MAPIMessages1.MsgSubject = "Tak for din bestilling"
MAPIMessages1.MsgNoteText = "Hej " & Navn.Text & ", og tak for din bestilling. Din personlige kode er " & a & ". Den skal du sende til XxXxXxXxXx@XxXxXxXxXxXxX.Xx."
MAPIMessages1.Send
MAPISession1.SignOff
Form2.Show
Unload Me
End If
End Sub
Private Sub Form_Load()
List1.AddItem "Test-Program1, 0,-"
List1.AddItem "-||-"
List1.AddItem "-||-"
End Sub

Private Sub Timer1_Timer()
ProgressBar1.Value = ProgressBar1.Value + 1
If ProgressBar1.Value = 100 Then
ProgressBar1.Value = 0
End If
End Sub

'---Kode slut---
Men når den skriver mailen til mig, skriver den kun Index'et på den vare den står på! Den skulle også gerne skrive f.esk. Test-Program1, 0,-... Hvordan får jeg den til at gøre det?