求教高手！

[hwmhwmhwm]

求教高手！
我用vb6.0编了一个发送邮件的程序代码如下：
可是运行时系统总是提示：实时错误“13”，类型不匹配。恳请高手指出错误，在线等您的答案，先谢谢您了！

Private Sub Form_Load()
MAPISession1.SignOn
End Sub

Private Sub Form_Unload(Cancel As Integer)
MAPISession1.SignOff
End Sub

Private Sub Send_Click()
With MAPIMessages1
.MsgIndex = -1
.RecipDisplayName = txtSendTo.Text / 收信人地址
.MsgSubject = txtSubject.Text / 邮件主题
.MsgNoteText = txtMessage.Text / 邮件正文
.SessionID = MAPISession1.SessionID / 发送程序和邮件工具之间建立的任务数
.Send
End With
MsgBox "邮件发送完毕！", , "发送邮件" / 发送成功显示信息框

End Sub