Public Function IsFrmLoaded(ByRef f As Form) As Boolean
    Dim frm As Form
 
    IsFrmLoaded = False
    For Each frm In Forms
        If frm Is f Then IsFrmLoaded = True: Exit Function
    Next frm
 
End Function

if IsFrmLoaded(frmBeispiel) then

public gl_FrmBeispielA as frmBeispiel
 
Sub Beispiel()
 
    set gl_FrmBeispielA = new frmBeispiel
'
'
'weiterer Code
'
'
    if IsFrmLoaded(gl_FrmBeispiel) then
        unload gl_FrmBeispielA
        set gl_FrmBeispielA = nothing
    end if
end sub