Dim loMessage As New CDO.Message
        Dim loStream As New ADODB.Stream

        loStream.Mode = ADODB.ConnectModeEnum.adModeReadWrite
        loStream.Type = ADODB.StreamTypeEnum.adTypeText
        loStream.Open()

        loStream.LoadFromFile("d:\Test.msg")

        loMessage.DataSource.OpenObject(loStream, "_Stream")

        MessageBox.Show(loMessage.From)
        MessageBox.Show(loMessage.To)
        MessageBox.Show(loMessage.TextBody)