Private Sub txtData_Click()
  On Error Resume Next
  
           Dim lPos1&, lPos2&

  lPos1 = InStrRev(txtData, vbCrLf, txtData.SelStart)
  lPos2 = InStr(txtData.SelStart, txtData, vbCrLf)
  
  If lPos1 <= 0 Then lPos1 = 1
  If lPos2 <= 0 Then lPos2 = Len(txtData)
  
  txtData.SelStart = lPos1 + 2
  txtData.SelLength = lPos2 - lPos1 - 2
End Sub

Private Sub Text1_Click()
SendKeys "{DEL}"
SendKeys "{END}"
SendKeys "{BACKSPACE}"
End Sub

Private Sub txtData_Click()
  On Error Resume Next
  
           Dim lPos1&, lPos2&

  lPos1 = InStrRev(txtData, vbCrLf, txtData.SelStart)
  lPos2 = InStr(txtData.SelStart, txtData, vbCrLf)
  
  If lPos1 <= 0 Then lPos1 = -2
  If lPos2 <= 0 Then lPos2 = Len(txtData)
  
  txtData.SelStart = lPos1
  txtData.SelLength = lPos2 - lPos1 + 0

    Text1.Text = txtData.SelText
    Text1.SetFocus
    Text1_Click
End Sub