Encode Data String

  Public Function EncodeData(ByVal DataStr As String) As String
        Dim UTF8 As New UTF8Encoding
        Dim md5Hasher As New MD5CryptoServiceProvider
        Dim EncodedBytes As Byte() = md5Hasher.ComputeHash(UTF8.GetBytes(DataStr))
        Dim b As Byte
        Dim EncodedStr As String
        For Each b In EncodedBytes
            EncodedStr = EncodedStr & b.ToString
        Next
        Return EncodedStr
  End Function