Option Explicit
 
Private mlngResult As Long
 
Public Property Let plngResult(l As Long)
    mlngResult = l
End Property
 
Private Sub Command1_Click()
    Set adress_suche.pfrmParent = Me
    adress_suche.Show vbModal
    MsgBox CStr(mlngResult)
End Sub

Option Explicit
 
Private mfrmParent As Form
 
Public Property Set pfrmParent(f As Form)
    Set mfrmParent = f
End Property
 
Private Sub Command1_Click()
    Let mfrmParent.plngResult = 37 'Ergebnis zurückgeben
    Unload Me
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1