Private Sub Text1_LostFocus()
  Set m_LastTextBox  = Text1    'evtl. geht auch ActiveControl, hätte den 
  ' Vorteil, du kannst es
                              'kopieren
End Sub

Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)
  'Nur Strg- und Alt-Taste zulassen
 
  If Not m_LastTextBox Is Nothing Then
 
    If Shift = vbCtrlMask + vbAltMask Then
 
      'Wenn die Ü-Taste gedrückt wurde...
      If KeyCode = 186 Then
 
        '...selektierten Text in die zuletzt focusierte Textbox übertragen
        m_LastTextBox.Text = Text2.SelText
 
      End If
 
    End If
 
  End If
 
End Sub

Gruß
Dirk

--
?Get it right the first time