Private Function GatherData(ByVal strData As Array) As String
        Dim temp As Long, myData As String
        myData = ""
        For temp = 0 To UBound(strData)
            myData = myData + Hex(strData(temp))
        Next
        myData = myData & vbCrLf
        Return myData
    End Function