I have a module called ParseMessage, in that module there is a fuction called SHowMessageText. The purpose is to get pull data out of a message structure that is passed to it and right now it return a ListViewItem that gets added to a listview on the main dialog. I'd also like to return a string value (which is the record key) to the form so that I can pass it to another function for database stuff.

Thanks for any help, I've included the code from my function

    Function ShowMessageText(ByVal msg As PBARADT.Message, ByVal msgType As String) As ListViewItem
        Dim lastName As String = msg.PID.PatientName.FamilyName.Value
        Dim firstname As String = msg.PID.PatientName.GivenName.Value
        Dim mi As String = msg.PID.PatientName.MiddleInitialOrName.Value
        Dim address As String = msg.PID.PatientAddress.StreetAddress.Value
        Dim city As String = msg.PID.PatientAddress.City.Value
        Dim state As String = msg.PID.PatientAddress.StateOrProvince.Value
        Dim zipcode As String = msg.PID.PatientAddress.ZipOrPostalCode.Value
        Dim ssn As String = msg.PID.SSNNumber.Value
        Dim accountnumber As String = msg.PID.PatientAccountNumber.IDNumber.Value
        Dim medicalrecord As String = msg.PID.AlternatePatientID.Value.Substring(0, 9)
        ' Adding ListView Columns
        Dim str(6) As String
        Dim itm As ListViewItem
        str(0) = msgType
        str(1) = lastName
        str(2) = firstname
        str(3) = address
        str(4) = city
        str(5) = state
        str(6) = zipcode

        itm = New ListViewItem(str)
        Return (itm)

    End Function

Thanks again