Guarda che funziona l'ho appena testato

Crea un pulsante sul form chiamato command1
ed assicurati che il file che indichi da codice esista
Poi incolla questo nel codice

Private Sub Command1_click()
Dim o As Object
Dim m As Object
Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)
m.To = "Destinatario"
m.Subject = "Oggetto"
m.Body = "Contenuto"
m.Attachments.Add "C:\nomefile.txt"
m.Display
End sub