Visual Basic - ¡¡POR FAVOR AYUDA CÓDIGO¡¡

HOLA:
TENGO EL SIGUIENTE CÓDIGO EN UN FORMULARIO DE FORMA QUE AL PULSAR EL BOTON SE DEBERÍA ABRIR UN MENSAJE DE OUTLOOK EXPRES INTRODUCCIENDO LOS DATOS DE LOS TEXTBOX PARA PODER ENVIARLO CORRECTAMENTE, EL CASO ES QUE NO FUNCIONA Y NO ABRE EL MENSAJE ¿QUE FALLA?

Private Sub CommandButton1_Click()
Dim Msg As String
Dim Subj As String
Dim EmailAddr As String
Dim Recipient As String
Dim Bonus As String
Dim Hlink As String
EmailAddr = TextBox1 & TextBox2
Subj = TextBox3
Msg = TextBox4 & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "FIRMADO." & "%0A"
'Msg = Msg & "FDO.- " & UserForm6.ComboBox4 & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
Msg = Msg & "%0A"
'Msg = Msg & "FDO.- " & UserForm6.TextBox7
Hlink = "mailto:" & EmailAddr & "?"
Hlink = Hlink & "subject=" & Subj & "&"
Hlink = Hlink & "body=" & Msg
ActiveDocument.FollowHyperlink Hlink
Unload UserForm31
UserForm2.Show
End Sub