Visual Basic - Enviar Correo con Adjunto, NECESITO AYUDA

Hola a todos.
Tengo un formulario con un boton que al pulsarlo quiero que me habra el outlook y me envie a una direccion que le paso con una variable un documento de excel adjunto.
Lo que hago es lo siguiente:

private sub envio_correo()
documento="c:\alta.xls"
sAddedText = sAddedText & "&Subject=PARTE "
sAddedText = sAddedText & "&Body=Os envío un parte."
sAddedText = sAddedText & "&Attach=" & "'" & documento & "'"
Call ShellExecute(Me.hwnd, "open", sText, _
vbNullString, vbNullString, SW_SHOWNORMAL)
end sub

Private Declare Function ShellExecute Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, _
ByVal lpOperation As String, ByVal lpFile As String, _
ByVal lpParameters As String, ByVal lpDirectory _
As String, ByVal nShowCmd As Long) As Long


que hago mal?
alguien sabe hacerlo de un modo + facil?

gracias por adelantado