Private Sub cmdOK_Click()
  Me.Tag = True
  Me.Hide
End Sub

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

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

Dim sAuswahl As String
Dim bResult As Boolean
 
Load frmAuswahl
With frmAuswahl
  .Show 1
  bResult = (.Tag = True)
  <font color=green>' Es wurde OK geklickt!</font>
  If bResult = True Then sAuswahl = .Combo1.Text
End With
Unload frmAuswahl
 
If bResult Then
  MsgBox "Auswahl: " & sAuswahl
End If