В IF проверка на загруженность формы - VB

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

Помогите реализовать проверку на загруженность формы такова рода

If условие then
   msgbox "Форма уже открыта"
else
   form.show
end if

Имя формы заранее известно. P.S. Не кидайтесь, через поиск находил данную тему В VB 6.0 как узнать, загруженали форма ? (0) , но не понял как реализовать в условие при выполнении которого выводился бы msgbox и не выполнении открывалась бы форма.

Решение задачи: «В IF проверка на загруженность формы»

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

                            Option Explicit
 
Sub Main()
    'Load Form1
    If FormLoaded("form1") Then
        MsgBox "Форма загруженна"
    Else
        MsgBox "Форма не загруженна"
    End If
    End
End Sub
 
Public Function FormLoaded(ByVal frmName$) As Boolean: Dim i&
    For i = 0 To Forms.Count - 1
        If StrComp(Forms(i).Name, frmName, 1) = 0 Then
            FormLoaded = True
            Exit For
        End If
    Next
End Function
                        