Ошибка при передаче значения переменной между модулями

Option Explicit
Public ExcelStudents As String 
Public ExcelDorm As String 
Public itemSName As String, itemFName As String, itemPName As String, itemGroup As String
Public itemSalary As Double, itemGrade As Double
Public isMale As Boolean, isFemale As Boolean
Public isNewNeed As Boolean 'та самая переменная
 
Sub OpenMainForm()
    MainForm.Show
    isNewNeed = True
End Sub

Option Explicit
 
'Нажатие кнопки Загрузить для общежития, вызывает открытие книги
Private Sub btnAddDormInfo_Click()
    Call dlgOpenBook(ExcelDorm)
    lblExcelDorm.Caption = ExcelDorm
End Sub
 
'Открытие книги и запись ее имени в переданную по ссылке переменную
Sub dlgOpenBook(ByRef bookName As String)
    bookName = Application.GetOpenFilename _
                ("Excel files(*.xls*),*.xls*", 1, "Выбрать Excel файл", , False)
End Sub
 
'Создание пустой книги студентов
Sub CreateBook()
    bookPath = ThisWorkbook.Path 'путь к исходной папке
    Workbooks.Add
    ActiveWorkbook.SaveAs Filename:=bookPath & "\InputBook.xls"
    ExcelStudents = ActiveWorkbook.Path 'сохраняем ее имя в ExcelStudents
    ActiveWorkbook.Close 'закрывать????
    lblExcelStudents.Caption = ExcelStudents
End Sub
 
'Выбор файла со списком студентов
Sub btnAddList_Click()
    ExcelStudents = "111"
    Call dlgOpenBook(ExcelStudents)
    lblExcelStudents.Caption = ExcelStudents
    isNewNeed = False
End Sub
 
'проверка введенных данных
Private Sub btnAddStudent_Click()
    'проверка введенных данных
End Sub
 
'добавление данных из формы, вызывается в btnAddStudent_Click после проверки на корректность
Sub addInTable()
 
End Sub
 
Sub BtnOpenForm_Click() 'вот тут неправильное значение у isNewNeed
    InputFormGroup.Visible = True
    If isNewNeed = False Then
        'добавляем запись в ExcelStudents
    Else        
        Call CreateBook 'создаем книгу и присваиваем ее название переменной ExcelStudents _
        добавляем запись в ExcelStudents
    End If
End Sub