Attachment an Email anhängen

Ich habe nachfolgende Routine, welche scheinbar von Marcus ist.

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

Private Sub Mail(eMail As String, Optional Subject As String, _
Optional Body As String)
Call ShellExecute(0&, "Open", "mailto:" + eMail + _
"?Subject=" + Subject + "&Body=" + Body, "", "", 1)
End Sub

Private Sub Command1_Click()
Dim Nachricht As String
'Zeilenumbruch mit %0D%0A erzwingen!
Nachricht = "Hallo," & "%0D%0A" & "Hier ist Deine Email !"
Call Mail("Name@provider.de", "Ein Betreff", Nachricht)
End Sub

Wie binde ich dort noch ein txt-Attachment ein, welches ich aus dem Explorer mit versenden will?

Gruß
Bernhard