Не могу найти ошибку в коде

Private Sub CmdStart_Click()
Dim N As Single, Nstr As Single, Ncol As Single
Dim i As Integer
Dim Creteriy As Variant
Dim b(100) As Single
Dim c(100) As Single
Лист1.Activate
N = CSng(TextN)
Nstr = CSng(TextNstr)
Ncol = CSng(TextNcol)
For i = 1 To N
b(i) = Cells(Nstr + i - 1, Ncol)
Next i
Select Case Criteriy
Case Is = "Умножить на 2"
For i = 1 To N
c(i) = b(i) * 2
Next i
Case Is = "Разделить на 2"
For i = 1 To N
c(i) = b(i) / 2
Next i
End Select
If OptionPrint1.Value = True Then
Лист1.Activate
Else
Лист2.Activate
End If
For i = 1 To N
c(i) = Cells(Nstr + i - 1, Ncol + 1)
Next i
End Sub
 
Private Sub CmdClear_Click()
TextN.Text = ""
TextNstr.Text = ""
TextNcol.Text = ""
End Sub
 
Private Sub ListBoxCriteriy_Click()
Criteriy = ListBoxCriteriy.Text
End Sub
 
Private Sub UserForm_Activate()
ListBoxCriteriy.AddItem "Умножить на 2"
ListBoxCriteriy.AddItem "Разделить на 2"
End Sub