Проверка установки нескольких флагов на форме - VB

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

Добрый вечер)... Подскажите пожалуйста, почему этот код не работает? Описание думаю не требуется, всё просто до безобразия))

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() типа "неопциональный аргумент"

Решение задачи: «Проверка установки нескольких флагов на форме»

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

                            Public Sub Command1_Click()
If Check1 = 1 Then
Text1 = "no"
Else
Text1 = "YES"
End If
If Check2 = 1 Then
Text2 = "no"
Else
Text2 = "YES"
End If
If Check3 = 1 Then
Text3 = "no"
Else
Text3 = "YES"
End If
If Check4 = 1 Then
Text4 = "no"
Else
Text4 = "YES"
End If
If Check5 = 1 Then
Text5 = "no"
Else
Text5 = "YES"
End If
If Check6 = 1 Then
Text6 = "no"
Else
Text6 = "YES"
End If
End Sub
                        