Private Sub Form_Load()
    'Call Form1_modul(Me)'Ich habs mal spaßeshalber deaktiviert.
End Sub
 
Private Sub Cmd_Form1_Click()
Dim oForm As New Form2
Set oForm = New Form2
 
    With oForm
        .Show
    End With
Form2.Show
 
End Sub

Option Explicit
 
 
Private Sub Form_Load()
'    Call Form2_modul(Me)'Auch deaktiviert
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

Option Explicit
Public DialogResult As Boolean
Public InputText As String
Public T As String
 
 
Private Sub Form_Load()
'Call Form3_modul(Me)'Deaktiviert
End Sub
 
Private Sub Cmd_ok_Form3_Click()
T = Text1_form3.text
    DialogResult = True
        InputText = T
    Unload Me
End Sub
 
Private Sub Cmd_abbrechen_Form3_Click()
    DialogResult = False
        InputText = ""
    Unload Me
End Sub