#Region " Base64 "
Public Shared Function DecodeBase64(ByVal txt As String) As String
Dim strBytes() As Byte = System.Convert.FromBase64String(txt)
Return System.Text.Encoding.GetEncoding("iso-8859-1").GetString(strBytes)
End Function
Public Shared Function EncodeBase64(ByVal txt As String) As String
Dim strBytes() As Byte = System.Text.Encoding.GetEncoding("iso-8859-1").GetBytes(txt)
Return System.Convert.ToBase64String(strBytes)
End Function
#End Region