Не могу сравнить две переменные - VB

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

TP1
  Mem1   
  Mem2   
  Mem3   

  TP2
  El1   
  El2   

  Nastroyka
  Korekciya  TP1
  Poshuk  TP2

 PB_Frm2Nstr  Nastroyka
 PB_Frm2NstrTmp  Nastroyka

В условии ошибка "несответствие типов"

PB_Frm2Nstr = PB_Frm2NstrTmp

А как тогда сравнить ?

Решение задачи: «Не могу сравнить две переменные»

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

                            <font color="blue">Public</font> <font color="blue">Type</font> Korekciya
  Left <font color="blue">As</font> <font color="blue">Long</font>
  LeftBl <font color="blue">As</font> <font color="blue">Boolean</font>
  Poshuk1 <font color="blue">As</font> <font color="blue">String</font> * <font color="darkblue"><b>20</b></font>
  Poshuk1Bl <font color="blue">As</font> <font color="blue">Boolean</font>
  Poshuk2 <font color="blue">As</font> <font color="blue">String</font> * <font color="darkblue"><b>20</b></font>
  Poshuk2Bl <font color="blue">As</font> <font color="blue">Boolean</font>
  Zamina1 <font color="blue">As</font> <font color="blue">String</font> * <font color="darkblue"><b>20</b></font>
  Zamina2 <font color="blue">As</font> <font color="blue">String</font> * <font color="darkblue"><b>20</b></font>
  PershaLiteraVelika <font color="blue">As</font> <font color="blue">Boolean</font>
  AvtomKoreguvatiVse <font color="blue">As</font> <font color="blue">Boolean</font>
<font color="blue">End</font> <font color="blue">Type</font>

<font color="blue">Public</font> <font color="blue">Type</font> DlaPoshukuArt 
  MojlivoArtCePapka <font color="blue">As</font> <font color="blue">Boolean</font> 
  MinatiMiscamiPrizvImya <font color="blue">As</font> <font color="blue">Boolean</font> 
  DeleteLishniZnaki <font color="blue">As</font> <font color="blue">Boolean</font> 
  KilkaArtistiv <font color="blue">As</font> <font color="blue">Boolean</font> 
  YakshoArtistaNeZnaydeno <font color="blue">As</font> <font color="blue">Boolean</font> 
  PoshukSkorocheno <font color="blue">As</font> <font color="blue">Boolean</font>
  PoshukPoPrizv <font color="blue">As</font> <font color="blue">Boolean</font> 
  NavchitiYakshoNeznaydeno <font color="blue">As</font> <font color="blue">Boolean</font>
  BilsheOdnogoVariantuVibir <font color="blue">As</font> <font color="blue">Boolean</font> 
<font color="blue">End</font> <font color="blue">Type</font>

<font color="blue">Public</font> <font color="blue">Type</font> Nastroyka
  Korekciya <font color="blue">As</font> Korekciya
  Poshuk <font color="blue">As</font> DlaPoshukuArt
<font color="blue">End</font> <font color="blue">Type</font>

<font color="blue">Public</font> PB_Frm2Nstr <font color="blue">As</font> Nastroyka

                        