Компилятор VB6 меняет значение переменной, которую я не собирался менять!

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

ПЕРЕМЕННАЯ

то же меняется

Command1_Click()
     x1  
     y1  
    x1 = 
    y1 = kruto(x1)

 kruto(trpr  )  
     trpr =  
       trpr = 
    
       trpr = trpr + 
     
    kruto = trpr
 

ТАКОГО НЕ ДОЛЖНО БЫТЬ ИЛИ КАК ЭТОГО ИЗБЕЖАТЬ

Решение задачи: «Компилятор VB6 меняет значение переменной, которую я не собирался менять!»

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

                            <font color="blue">Private</font> <font color="blue">Sub</font> Form_Load ()
 <font color="blue">Dim</font> a <font color="blue">As</font> <font color="blue">Integer</font>
 a = <font color="darkblue"><b>20</b></font>
 <font color="blue">Call</font> test1 (a)
 msgbox a
<font color="00AA00">'----</font>
 a = <font color="darkblue"><b>20</b></font>
 <font color="blue">Call</font> test2 (a)
 msgbox a
<font color="blue">End</font> <font color="blue">Sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> test1 (a <font color="blue">as</font> <font color="blue">integer</font>)
a = <font color="darkblue"><b>10</b></font>
<font color="blue">End</font> <font color="blue">sub</font>

<font color="blue">Private</font> <font color="blue">Sub</font> test2 (<font color="blue">ByVal</font> a <font color="blue">as</font> <font color="blue">integer</font>)
a = <font color="darkblue"><b>10</b></font>
<font color="blue">End</font> <font color="blue">sub</font>
                        