sub unstringResult(result)
    resultArray = Split(result, "^|", -1, 1)
    message = resultArray(1)
end sub