Visual Basic - Visual y Outlook 2003

Hola, estoy intentando armar una aplicacion en Visual Basic que extrae un archivo adjunto del correo electronico, pero me da problemas cuando intento crear el objeto para la sesion de correo (estoy usando Outlook 2003).
les paso la porcion de codigo donde me tira el error

Set objsession = CreateObject("MAPI.Session") 'ACA ES DONDE ME TIRA EL ERROR
With objsession
.Logon ("outlook")
Set mensajes = .Inbox.Messages
For Each Message In mensajes
tema = Message.Subject
remitente = Message.Sender
Set archivos = Message.Attachments
For Each archivo In archivos
actual = archivo.Name
If actual = "acciones.txt" Then
archivo.WriteToFile ("C:\WINDOWS\Temp\acciones.txt")

Podran ayudarme con esto??
Gracias