Ответ найден.
Необходимо вот такое преобразование строки:
'==========================================
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
'=====================================
Всем спасибо за внимание.