VB2008 og Exchange

Jeg har et simpelt program i VB6 som henter info fra en exchange server når man taster navn eller nummer ind. Det vil jeg gerne konvertere til VB2008
**********
Dim objSession As New MAPI.Session
Const CdoPR_GIVEN_NAME = &H3A06001E
Const CdoPR_SURNAME = &H3A11001E
Const CdoPR_DEPARTMENT_NAME = &H3A18001E
Const CdoPR_ACCOUNT = &H3A00001E

Private Sub Form_Load()
MAPISession1.SignOn
MAPIMessages1.SessionID = MAPISession1.SessionID
objSession.Logon NewSession:=False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Text2.Text = "" 'objRecipAD.Fields(CdoPR_ACCOUNT)
Text3.Text = "" ' objRecipAD.Fields(CdoPR_GIVEN_NAME)
Text4.Text = "" ' objRecipAD.Fields(CdoPR_SURNAME)
Text5.Text = "" 'objRecipAD.Fields(CdoPR_DEPARTMENT_NAME)
If KeyAscii = 13 Then
Dim objMsg As MAPI.Message
Dim objRecip As MAPI.Recipient
Dim objRecipAD As MAPI.AddressEntry
Set objMsg = objSession.Outbox.Messages.Add
Set objRecip = objMsg.Recipients.Add(Text1.Text)
objRecip.Resolve
Set objRecipAD = objRecip.AddressEntry
Text2.Text = objRecipAD.Fields(CdoPR_ACCOUNT)
Text3.Text = objRecipAD.Fields(CdoPR_GIVEN_NAME)
Text4.Text = objRecipAD.Fields(CdoPR_SURNAME)
Text5.Text = objRecipAD.Fields(CdoPR_DEPARTMENT_NAME)
Set objRecipAD = Nothing
Set objRecip = Nothing
Set objMsg = Nothing
End If
End Sub
*********
Kan nogen hjælpe med en VB2008 (Express) løsning?