Dim sResult As String
 
Load Form2
With Form2
  .Show 1
  sResult = .Tag
End With
Unload Form2

Private Sub cmdOK_Click()
  Me.Tag = "Rückgabewert"
  Me.Hide
End Sub

Private Sub cmdCancel_Click()
  Me.Tag = ""
  Me.Hide
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
  If UnloadMode <> 1 Then 
    Cancel = True
    cmdCancel_Click
  End If
End Sub