Option Explicit
Public DialogResult As Boolean
Public InputText As String
Public T As String
 
 
Private Sub Form_Load()
Call Form3_modul(Me)
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