ClearMessage

Method Name: ClearMessage() -

Parameters: None

Returns: N/A

Description: Clears the current message object.   Useful when looping through multiple messages goes at the top of the loop

Example:

      On Error Resume Next        

      'Declare a Variable        

      Dim objHL7, sVendorID

      'Create the Object

      Set objHL7 = oUTILITIES.NewMessageObject()

      If oUTILITIES.IsError Then

       'Do something about an error here

       '

      End If

             sVendorID = objHL7.GetVendorID("Default","2.3")        

             If Not .OpenVendor(sVendorID) Then

               'Do Something

             End If         

     For i = 0 To UBound(MyMessagesArray)

     objHL7.ClearMessage         

     '......Code Code Code

     '......Code Code Code

     '......Code Code Code

     Next 

     '....Destroy the object when I'm done

     Set objHL7 = Nothing

     'Easy as that