Visual Basic - Enviar mail

Alguien sabe como puedo mediante codigo realizar el envio de un archivo adjunto via mail (no Outlook), algo así pero no me funciona
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

iConf.Load -1 ' CDO Source Defaults
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mx1.hotmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With

strbody = "enviado desde VB 6.0"
With iMsg
Set .Configuration = iConf
.To = """Hans"" [email protected]>"
.CC = ""
.BCC = ""
.From = """Hans"" [email protected]>"
.Subject = "Programado en VB 6.0 con atach"
.TextBody = "programado con VB 6.0 y enviado con adjunto"
.Addattachment "C:/test.txt"
.Send
End With
ademas si me pudieran dar un pequeño codigo que cierre la sesion de messenger, gracias