Puoi provare anche con questo codice:

For Num = 0 To Forms.Count - 1
If Forms(Num).Name = "Form2" Then
MsgBox "Il Form2 è già attivo", VbInformation, "Attenzione"
Exit For
End If
Next Num

Ciao