Public Property Get Text() As String
  Text = MyTextBox.Text
End Property
 
Public Property Let Text(ByVal Value As String)
  MyTextBox.Text = Value
End Property

Option Explicit
Private m_Cancel As Boolean
 
Private Sub cmdOK_Click()
  m_Cancel = False
  Me.Hide
End Sub
 
Private Sub cmdAbort_Click()
  m_Cancel = True
  Me.Hide
End Sub
 
Public Property Get Cancel() As Boolean
  Cancel = m_Cancel
End Property

' Aufruf der Edit-Form
Load frmEdit
With frmEdit
  .Text = Text1.Text  ' Text übergeben
  .Show vbModal
 
  If Not .Cancel Then
    ' geänderten Text wieder übernehmen
    Text1.Text = .Text
  End If
End With
Unload frmEdit

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de