Problema leyendo mails

[Frehley]

Hola gente, les comento mi problema

Cuando se carga el primer formulario vb6 lee los mails recibidos por outlook y agrega los sender en un list1.
Tengo que hacer que cuando hago click en un sender especifico me muestre el body en un ritchtextbox. Hasta ahora solo puede hacer que me muestre todos los bodys de todos los mails recibidos, osea, no se como pocicionarme en un mail especifico para que lo muestre.

Este es el codigo con el que estoy intentando leer los bodys

Código:

rtb1.Text = ""
Dim olApp As Outlook.Application
Dim Inbox As Outlook.MAPIFolder
Dim InboxItems As Outlook.Items
Dim MailObject As Object
Dim Dealer As Integer

Set olApp = CreateObject("Outlook.Application")
Set Inbox = olApp.GetNamespace("Mapi").GetDefaultFolder(olFolderInbox)
Set InboxItems = Inbox.Items

For Each MailObject In InboxItems
    rtb1.Text = MailObject.Body
Next

Set olApp = Nothing
Set Inbox = Nothing
Set InboxItems = Nothing
Set MailObject = Nothing

Espero que alguien me pueda dar una mano, se que es muy sencillo esto, pero es la primera vez que trabajo con mails. Y ya que estamos si alguien tiene algun ejempli completo sobre este tema se los agradeceré!

Salu2!