Public Function DecodeQpUTF8(mBody As String, mContentType As String) As String
        mBody = mBody.Replace("=" & vbCrLf, String.Empty)
        Dim tempString As String = String.Empty
        For index As Integer = 0 To mBody.Length - 1
            If mBody.Chars(index) = "=" Then
                Dim strFirstByte As String = String.Empty
                For n As Integer = 1 To 2
                    strFirstByte += mBody.Chars(index + n)
                Next
                If Convert.ToInt32(strFirstByte, 16) >= Convert.ToInt32("C3", 16) Then
                    Dim b(2) As [Byte]
                    Dim strSecondByte As String = String.Empty
                    b(0) = Convert.ToByte(strFirstByte, 16)
                    For n As Integer = 1 To 2
                        strSecondByte += mBody.Chars(index + 3 + n)
                    Next
                    b(1) = Convert.ToByte(strSecondByte, 16)
                    Dim strUbyte As String = System.Text.Encoding.UTF8.GetString(b)
                    tempString += strUbyte
                    index += 5
                Else
                    tempString += Convert.ToChar(Convert.ToInt32(strFirstByte, 16))
                    index += 2
                End If
            Else
                tempString += mBody.Chars(index)
            End If
        Next
        If mContentType.ToLower.Contains("text/plain") Then
            tempString = tempString.Replace(vbCrLf, "
")
        End If
        Return tempString.Replace(ChrW(194), String.Empty)
    End Function