Добрый вечер!! Подскажите пожалуйста почему не работает этот код?
Public Sub Command1_Click()
If Check1 = 1 Then Text1 = "no" Else Text1 = "YES"
If Check2 = 1 Then Text2 = "no" Else Text2 = "YES"
If Check3 = 1 Then Text3 = "no" Else Text3 = "YES"
If Check4 = 1 Then Text4 = "no" Else Text4 = "YES"
If Check5 = 1 Then Text5 = "no" Else Text5 = "YES"
If Check6 = 1 Then Text6 = "no" Else Text6 = "YES"
End Sub

Если сначала писать одну строчку с IF, то работает нормально, как делаю несколько, то начинает ругаться на верхнюю строку Public Sub Command1_Click() типа "неопциональный аргумент"

Точный...

Разобрался... Оказалось, причина в том, что кода я создавал несколько чекбоксов и текстбоксов, я их просто скопировал 6 раз из одного и переименовал, но адрес его стал не просто checkbox2, а checkbox2(2), и так со всеми...)