Здравствуйте! Помогите пожалуйста перенести на vfp код из vba:[code]Function StringToMB(S)
Dim I, B
For I = 1 To Len(S)
B = B & ChrB(Asc(Mid(S, I, 1)))
Next
StringToMB = B
End Function[/code]