Private Sub Form_Load()'Form1.MDIChild = True
    Call Form1_modul(Me)
End Sub
 
Private Sub Cmd_Form1_Click()
Dim oForm As New Form2
Set oForm = New Form2
 
    With oForm
        .Show
    End With
 
End Sub

Public DialogResult As Boolean
Public InputText As String
 
Private Sub Form_Load()'Form2.MDIChild = True
    Call Form2_modul(Me)
End Sub
 
Private Sub cmd_form2_Click()
   Dim f3 As New Form3 'Form3.Mdichild=false !!
   Dim text As String 'bzw Textbox
   f3.Show vbModal 'Hinweis-Form wird angezeigt
    'Nach dem Schließen von f3 gehts hier weiter ...
   If f3.DialogResult Then
       'Benutzer hat im Dialog Option true gewählt
       text = f3.InputText
   Else
       'Benutzer hat im Dialog Option false (Abbrechen) gewählt
       text = ""
   End If
End Sub

Public DialogResult As Boolean
Public InputText As String
 
Private Sub Form_Load()'Form3.MDIChild = False
Dim T As String
   T = Text1_form3.Text
      Call Form3_modul(Me)
End Sub
 
Private Sub Cmd_ok_Form3_Click()
    DialogResult = True
        InputText = T
    Unload Me
End Sub
 
Private Sub Cmd_abbrechen_Form3_Click()
    DialogResult = False
        InputText = ""
    Unload Me
End Sub