VB6 and Exchange

I have written a small routine that uses the MAPI controls to read from an Exchange InBox. What I am strying to do is read all email from the Inbox and if there is an attachment save it to predefined location. This part of the routine works.
However, I can only see the first 8 characters of the attachment name. I look at the .attachmentPathName and AttachmentName properties and they both only show the first 8 characters.
Is there a way to fix this??

My system (Outlook 2000, accessing Exchange v5.5) shows full length filenames with the VB Script code below.
When you say "only 8 characters" is that a valid DOS shortname, or only the first 8 characters of the full name?

VB Code:

msgbox "Listing attachments in Outlook . . ."
set out=WScript.CreateObject("Outlook.Application")
set mapi=out.GetNameSpace("MAPI")
Set myItems = MAPI.GetDefaultFolder(6).Items 
 
for each myItem in MyItems
    if myItem.CLASS = "43" then
        for each Attachment in myItem.Attachments
'
' For any mail item (class 43) with an attachment, check its name
'
    msgbox "FOUND IN: " & myItem.PARENT & ". 
SUBJECT = " & myItem & ". ATTACHMENT = " & Attachment
         next
    end if
Next
 
msgbox "No more attachments in Inbox . . ."