Ошибка sub of function not defined - VB

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

Привет,помогите с ошибкой в vusal basic Программирую только 1 неделю,поэтому многого не знаю,здесь в коде выдает ошибку Private Sub cmdВычислить подсвечивается желтым,а вот это выдает ошибку Kolich=CSng(Text1(0).Text ), Ctoim=CSng(Text2.Text),Stag=CSng(Text.2.Text),когда стираю этот код он без ошибки запускает,помогите может,что-то я не правильно делаю

Public Oklad_itogo As Currency
Private Sub cmdВычислить_Click()
Kolich=CSng(Text1(0).Text )
Ctoim=CSng(Text2.Text)
Stag=CSng(Text.2.Text)
 
Premium = CSng(Text4.Text)
 
Oklad_itogo = Baza(Kolich, Ctoim, Stag) + Baza(Kolich, Ctoim, Stag) * Premiun / 100
Text5.Text = FormatNumber(Oklad_itogo, 2)

Решение задачи: «Ошибка sub of function not defined»

textual
                            Листинг программы 
                        
                            Text2.Text = Ctoim
Text3.Text = Stag