---

Private Sub Выход_Click()
    Unload Me
End Sub

Private Sub CommandButton3_Click()

End Sub

Private Sub CommandButton4_Click()

End Sub

Private Sub ListBox1_Change()
    Dim i As Long
    i = ListBox1.ListIndex + 2
    
    If i > 1 Then
        TextBox1.Text = Sheets("Список").Cells(i, 1).Value
        TextBox2.Text = Sheets("Список").Cells(i, 2).Value
        TextBox3.Text = Sheets("Список").Cells(i, 3).Value
        ListBox2.Value = Sheets("Список").Cells(i, 4).Value
    End If
End Sub

Private Sub Удалить_Click()
    Dim i As Long
    i = ListBox1.ListIndex + 2
    If i > 1 Then
        Rows(i).Delete
        ListBox1.RowSource = "Список!A2:A100"
    End If
End Sub

Private Sub СортировкаПоВозрастанию_Click()
    Sheets("Список").Range("A1:D100").Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlYes
End Sub

Private Sub СортировкаПоУбыванию_Click()
    Sheets("Список").Range("A1:D100").Sort Key1:=Range("A2"), Order1:=xlDescending, Header:=xlYes
End Sub