Выполнене функции по условию - VB

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

Не ругайте строго, новичок.
Есть некая функция или процедура Работа1()
которую надо запустить при выполнении условия из другой процедуры test(), условие это выставленные флажок на форме.

sub test()
If (Forms.ф_КоммПредл.Флажок49.Value = -1) Then Работа1()
End sub

выдаётся ошибка что после Работа1(), ожадется "="

Решение задачи: «Выполнене функции по условию»

textual
                            Листинг программы 
                        
                            If (Forms.ф_КоммПредл.Флажок49.Value = -1) Then Call Работа1()