Сначала ищем пробелы в начале строки, потом в конце.
Function myTrim$(s$)
t0=Len(s$)
If t0=0 Then Return s$
Local t1 = 1
While Mid(s$,t1,1)=" "
t1=t1+1
If t1>t0 Then Return ""
Wend
Local t2 = t0
While Mid(s$, t2, 1)=" "
t2=t2-1
Wend
Return Mid(s$,t1,t2+1-t1)
End Function
__________________
AMD Sempron(tm) 1.41Ггц, 1024МБ ОЗУ, GeForce 6200 128МБ, WinXP SP3.