ник: Силblч
корочи все оказалось , ка ки предполагалось, на стороне клиента
Function oralongraw2text(longraw)
Dim b
On Error GoTo err123
For Each b In longraw
oralongraw2text = oralongraw2text & Chr(b) 'если ChrW(b) - будет в Unicode
Next
Exit Function
err123:
MsgBox Error, , "longraw2text"
Exit Function
End Function
|