Visual Basic - ayuda con mappi por favor

hola estoy desesperada . tengo una aplicacion en visual basic 6.0 donde mi codigo es el siguiente:

Form1.MAPISession1.NewSession = True
Form1.MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
Form1.MAPIMessages1.Compose

Form1.MAPIMessages1.RecipAddress = Form1.Text3.Text
Form1.MAPIMessages1.MsgNoteText = Form1.Text1.Text
Form1.MAPIMessages1.MsgSubject = Form1.Text4.Text
For i = 0 To List1.ListCount
' con el list1.list recorrro una lista y aquellos que en la posicion 33 tienen una X los cojo y los mando porque son archivos adjuntos
If Mid(List1.List(i), 33, 1) = "x" Then
MAPIMessages1.AttachmentIndex = maPIMessages1.AttachmentCount
MAPIMessages1.AttachmentPathName = pathbueno & "\" & fichero
End If
Next

Form1.MAPIMessages1.Send

lo que ocurre es que me sale error 32002 error no definido
ayudame por favor