Sub ReturnSubject(SubjectLine As String) As String
Dim tmpString As String
tmpString=SubjectLine.ToLowerCase
If tmpString.Contains("utf-8?b?") Then
tmpString=SubjectLine.SubString(SubjectLine.IndexOf("B?") + 2)
tmpString=tmpString.SubString2(0,tmpString.IndexOf("?="))
Dim su As StringUtils
Dim bytes() As Byte = su.DecodeBase64(tmpString)
Return BytesToString(bytes, 0, bytes.Length, "utf-8")
Else
Return SubjectLine.SubString(SubjectLine.IndexOf(":") + 1)
End If
End Sub
Return BytesToString(bytes, 0, bytes.Length, "utf-8") not ReturnSubject = BytesToString(bytes, 0, bytes.Length, "utf-8") when ReturnSubject is also your sub name