Reply to thread

Message: [QUOTE="Eugene Anthony, post: 4375819"] 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 [/QUOTE]