actually, here, I'll give you the entire program:

Option Explicit

Dim session As Object
Dim folder As Object
Dim msgs As Object
Dim mess As Object

Private Sub Form_Load()

On Error GoTo safe

Set session = CreateObject("CTI.Session.1")
session.CTLogon "WM2", "jrumajas", "mandrake"

Set folder = session.Inbox
Set msgs = folder.Messages
Set mess = msgs.GetFirst

MsgBox mess.Text
MsgBox "the length of body is: " & Len(mess.Text)
Set mess = Nothing

Set mess = session.Inbox.Messages.GetNext
MsgBox mess.Text
MsgBox "the length of body is: " & Len(mess.Text)

Set mess = Nothing
Set msgs = Nothing
Set folder = Nothing
session.Logoff

MsgBox "Done "
session = Nothing

safe:
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear ' Clear the error.
'Resume Next
Set session = Nothing
'End
Exit Sub
End Sub

The error says:
Error #-2147221227 Method 'CTLogon' of object 'ISession' failed.