How to get messages contained in Message or IBodypart objects using CDO?

Please find the VBScript code-snippet to get or extract the messages that are contained in the other objects like Message or IBodyPart.

 

    1:  ' Please provide the value for sVal  

    2:  Function getMsg(sVal As IBodyPart) As Message

    3:      Dim Msg

    4:      Set Msg = CreateObject("CDO.Message")

    5:      Dim getVal

    6:      Set getVal = Msg.DataSource

    7:      getVal.OpenObject sVal, "IBodyPart"

    8:      Set getMsg = Msg

    9:  End Function