A simpler and more encapsulated way to get the message name is:

set tName = pHL7.Name