Не работает калькулятор (программа внизу) - VB

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

                    Листинг программы
                
 
                        
                          
                    
Private Sub CommandButton1_Click()
Dim a, b As Integer
If Not IsNumeric(TextBox1) Or Not IsNumeric(TextBox2) Then
MsgBox "Неверные данные"
 
Exit Sub
End If
a = CDbl(TextBox1)
b = CDbl(TextBox2)
If chekbox1 = True Then TextBox3 = a + b Else TextBox3 = ""
If chekbox2 Then TextBox4 = a - b Else TextBox4 = ""
If chekbox4 Then TextBox6 = a * b Else TextBox6 = ""
If chekbox5 Then TextBox7 = a ^ b Else TextBox7 = ""
If chekbox3 Then
If b <> 0 Then TextBox5 = a / b Else TextBox5 = "Деление на 0"
Else
 
TextBox5 = ""
End If
End Sub

Делала калькуль через Username.Там соотвественно 2 Label, 5 Frame, в них Textbox и checkbox. Ну и комманд батон ВЫЧИСЛИТЬ.Она меня и подвела-не работает. после нажатия на вычислить выдает фразу НЕВЕРНЫЕ ДАННЫЕ. Т.е. моя програмка застопорилась в начале на фразах isnumeric Что я там неверно ВВЕЛА?

Решение задачи: «Не работает калькулятор (программа внизу)»

textual
                            Листинг программы 
                        
a = CDbl(Replace(TextBox1.text,",","."))
b = CDbl(Replace(TextBox2.text,",","."))