'In irgend ein Modul kommt:
'==========================
Public Test_Variable As String
 
 
'In Form 1 kommt:
'================
Private Sub Command1_Click()
    Form2.Show vbModal
    MsgBox Test_Variable
End Sub
 
 
'In Form 2 kommt:
'================
Private Sub Command1_Click()
    Test_Variable = "OK"
    Form2.Hide
End Sub
'================
Private Sub Command2_Click()
   Test_Variable = "Abbruch"
   Beep
   Form2.Hide
End Sub