ник: AlexSyr
Тогда, наверное, и так будет работать:
Private Function TwoAnsi2Unicode(ByVal strIN As String) As String
Dim bytTmp() As Byte
Dim intI As Integer
bytTmp = strIN
For intI = 0 To UBound(bytTmp) Step 2
TwoAnsi2Unicode = TwoAnsi2Unicode & Chr(bytTmp(intI))
Next
End Function
|