´Public Sub LadeMDI(sFrmName As String)
 
 
Dim oFrm As Form
Dim bExists As Boolean
 
 'Sucht in Forms-Collection nach dem Namen...
 For Each oFrm In Forms
     If oFrm.Name = sFrmName Then
        'Form ist schon offen - nochmal in den Vordergrund holen
         bExists = True
         oFrm.SetFocus
         Exit For
     End If
 Next
 
 
If Not bExists Then
    'Hier muss ich irgendwie die String Var. sFrmName einer Form zuordnen und 
    ' diese dann laden - aber wie??
End If
 
End Sub