Ответ найден.
Необходимо вот такое преобразование строки:
'==========================================
Function StringBFromSDE(strIn As String) As String
Dim res As String
Dim uStr As String
Dim i As Long
uStr = StrConv(strIn, vbUnicode)
res = ""
If Not IsEmpty(uStr) Then
For i = 1 To Len(uStr) Step 2
res = res & Mid(uStr, i, 1)
Next
End If
StringBFromSDE = res
End Function
'=====================================
Всем спасибо за внимание.