Visual Basic - AYUDA, agregar adjunto

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

El outlook me lo habre correctamente, e incluso añade en el lugar correcto la direccion de correo que le paso y el titulo del mensaje, pero del documeto adjunto nada de nada.
que hago mal?
alguien sabe hacerlo de un modo + facil?
Cómo puedo agregar el documento adjunto?

gracias por adelantado