Проблема при работе со строками

Dim Etl$
Dim Etl1$
Dim i%
Dim z%
Dim numprobel%

Etl = "2 2"

FOR i = 1 TO LEN(Etl$)
      if MID$(Etl$, i, 1) = " " then
       numprobel = i
       endif
NEXT i

z = 1
               
FOR i = 1 TO numprobel-1
     MID$(Etl1$, z, 1) = MID$(Etl$, i, 1)
    z = z + 1
NEXT i

MID$(Etl1$, z, 1) = MID$(Etl$, i, 1)

z = 1
               
FOR i = 1 TO numprobel-1
    Etl1=Left(Etl1,z-1) & MID$(Etl,i,1) & MID$(Etl1,z+1)
    z = z + 1
NEXT i