' aus der Hauptform oder sonstwo ... 
Load frmDialog
With frmDialog
  .Show vbModal
  If .Tag = True
    ' OK wurde gewählt
    MsgBox .txtUserName.Text
    ...
  End If
End With
Unload frmDialog

' in frmDialog
Private Sub cmdOK_Click()
  Me.Tag = True
  Me.Hide
End Sub
 
Private Sub cmdAbort_Click()
  Me.Tag = False
  Me.Hide
End Sub
 
Private Sub Form_QueryUnload(...)
  If UnloadMode <> 1 Then
    Cancel = True
    cmdAbort.Value = True
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de