Поиск и перенос текста - VB

Формулировка задачи:

(Сам нюб в этом деле, не понимаю совсем)
Ребят помогите пожалуйста. Есть код, поиск и перенос определенных символов, но он ищет до пустой ячейки, подскажите как сделать, что бы искал до конца (до первого совпадения). За ранее спасибо.

CommandButton1_Click()
Range().
  isempty(activecell)
input_text = ActiveCell.Text
Length = Len(input_text)
first_position = InStr(input_text, )
 first_position =   first_position = Length -  +  

ActiveCell.Formula = Left(input_text, first_position - ) + Right(input_text, Length - first_position + - ) + 
activecell.offset(, ).

 

Решение задачи: «Поиск и перенос текста»

textual
                            Листинг программы 
                        

                            <font color="blue">Private</font> <font color="blue">Sub</font> CommandButton1_Click()

<font color="blue">Dim</font> i <font color="blue">as</font> <font color="blue">Integer</font>
<font color="blue">For</font> i=<font color="darkblue"><b>9</b></font> <font color="blue">To</font> <font color="darkblue"><b>1000</b></font>
input_text = Cells(i,<font color="darkblue"><b>2</b></font>).Text
Length = Len(input_text)
first_position = InStr(input_text, <font color="teal">"TL"</font>)
<font color="blue">If</font> <font color="blue">Not</font> (first_position = <font color="darkblue"><b>0</b></font> <font color="blue">Or</font> first_position = Length - <font color="darkblue"><b>2</b></font> + <font color="darkblue"><b>1</b></font>) <font color="blue">Then</font>
  Cells(i,<font color="darkblue"><b>2</b></font>).Formula = Left(input_text, first_position - <font color="darkblue"><b>1</b></font>) + Right(input_text, Length - _
    first_position +<font color="darkblue"><b>1</b></font> - <font color="darkblue"><b>2</b></font>) + <font color="teal">"TL"</font>
<font color="blue">End</font> <font color="blue">If</font>
<font color="blue">Next</font>

<font color="blue">End</font> <font color="blue">Sub</font>
                        