Visual Basic - Mandando mails con outlook desde VB

Jovenes espero y me puedan ayudar..
Estoy tratando de mandar atravez de VB un mail en outlook, este mail contendra un attachment. Tengo un codigo que automaticamente me hace esto pero TrasTelon (todo desde codigo) el problema es que yo quiero que le habra a el usuario la ventana de un nuevo mail(ya incluyendo el attachment) y que unicamente seleccione el destinatario. Por favor helpme!!! como lo puedo hacer.

Saludos desde Tijuana B.C. mexico(la esquina de LatinoAmerica)

Function CreateMail(Destino As String, Titulo As String, _
Mensaje As String, Optional ArchivoAdjunto As String) As Boolean

Dim objNewMail As Outlook.MailItem, blnResolveSuccess As Boolean
' Set global Application and NameSpace object variables, if necessary.
If golApp Is Nothing Then
If InitializeOutlook = False Then
MsgBox "Unable to initialize Outlook. "
Exit Function
End If
End If
Set objNewMail = golApp.CreateItem(olMailItem)
With objNewMail
.Recipients.Add Destino
blnResolveSuccess = .Recipients.ResolveAll
If (Not IsMissing(ArchivoAdjunto)) And ArchivoAdjunto <> "" Then .Attachments.Add ArchivoAdjunto, olByValue
.Subject = Titulo
.Body = Mensaje
'If blnResolveSuccess Then
' .Send
' DoEvents
' Set golApp = Nothing
'Else
.Display
'End If
End With
End Function

Señor muchisimas Gracias..

Saludos