[RBK]

Сначала ищем пробелы в начале строки, потом в конце.

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