Private Function BStr2UStr(BStr)
'Byte string to Unicode string conversion
   Dim lngLoop
   BStr2UStr = ""
   For lngLoop = 1 to LenB(BStr)
    BStr2UStr = BStr2UStr & Chr(AscB(MidB(BStr,lngLoop,1)))
   Next
End Function

Private Function UStr2Bstr(UStr)
'Unicode string to Byte string conversion
   Dim lngLoop
   Dim strChar
   UStr2Bstr = ""
   For lngLoop = 1 to Len(UStr)
    strChar = Mid(UStr, lngLoop, 1)
    UStr2Bstr = UStr2Bstr & ChrB(AscB(strChar))
   Next
End Function

Is there an alternative method (easy & efficient) way of writing the
code for converting Byte string to Unicode & vice versa for the code
shown above?

Your help is kindly appreciated.

Eugene Anthony

*** Sent via Developersdex http://www.developersdex.com ***

I did the improvement:

Function getString(StringBin)

  getString =""
  For intCount = 1 to LenB(StringBin)
    getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
  Next

End Function

Function getByte(ByteBin)

  getByte =""
  For intCount = 1 to LenB(ByteBin)
    getByte = getByte & chrB(AscB(Mid(StringBin,intCount,1)))
  Next

End Function

Eugene Anthony

*** Sent via Developersdex http://www.developersdex.com ***

UTF8>UNICODE
Syntax help with dynamic class properties
ASP class help - For database & form with 120 fields
page title in a list of recently updated pages
'AS' keyword supported?