Option Explicit
Dim oTextBox As Control
Private Sub Command1_Click()
  If Not oTextBox Is Nothing Then
    MsgBox oTextBox.SelText
  End If
End Sub
 
Private Sub List1_GotFocus()
  Set oTextBox = Nothing
End Sub
 
Private Sub Text1_GotFocus()
  Set oTextBox = Text1
End Sub
 
Private Sub Text2_GotFocus()
  Set oTextBox = Text2
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de