Private Sub VSGed_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtP.Text = VSGed.RowSel
End Sub

Private Sub VSGed_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
txtS.Text = VSGed.RowSel
End Sub

Private Sub cmdCh_Click()
Dim Mstring As String
Dim Info As String
Dim n As Integer

On Error GoTo Error

    txtReturn.Text = "KillSel"
    n = VSGed.RowSel
    Mstring = "You have chosen for removal from a line  " & Val(txtP.Text) & " up to a line " & Val(txtS.Text) & " !!!"
    sMsg = Mstring
    nButtons = vbYesNo + vbQuestion
    nResult = MsgBox(sMsg, nButtons, "Kill the chosen line ???")
    If nResult = vbNo Then Exit Sub
    If nResult = vbYes Then
   
   For n = Val(txtP.Text) To Val(txtS.Text) ' Начало и конец диапазона
   'Здесь код ВАШЕГО удаления !!!
   ' Mstring = "k " & Piece(VSGed.Cell(flexcpText, n, 0), "=", 1)
   ' m.Xecute Mstring
   VSGed.Cell(flexcpText, n,  0 ) = ""
   VSGed.Cell(flexcpText, n,  1 ) = ""
            Next n
     End If
 
Exit Sub
Error:
MsgBox ("Error " & Err.Description)

End Sub