формирую из экселя текстовый досовский файл. Примерно так:

lsNamePath = "c:\"
lsNameFile = "O.txt"

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFile = oFSO.CreateTextFile(lsNamePath + lsNameFile, True)
lsSTR = "11"
oFile.writeline (subOEM(lsSTR))
oFile.Close

Public Function subOEM(ByVal lsSTR As String) As String
Dim lsANSI As String
Dim lb As Boolean

lsANSI = Space(257)
lb = CharToOem(lsSTR, lsANSI)
If lb = False Then
lsANSI = Space(0)
Else
lsANSI = Trim(lsANSI)
End If

subOEM = lsANSI

End Function

В результате почему то в конце строки образуется лишний пробел.
Очень бы хотелось этого избежать. Как быть?
Заранее спасибо

Может, я чайник конечно

Но он ругается на TrimNull()

а TRIM не помогает :-))

файл здесь

Люди, помогите!!!

Да хреново у меня с Бейсиком. :-))
Занимаюсь им первый раз, и то, потому что жизнь заставила
Может и код приведешь?
А то руководство напрягает :-))

Спасибо, немного модифицировал (InStrRev) и получилось.