Последовательные действия при нажатии на button

If TextBox7.Text = "" Then
            Exit Sub
        End If
 
        Dim count1 As Integer = (ListBox1.Items.Count - 1)
        Dim words1 As String
        For a = 0 To count1
            words1 = ListBox1.Items.Item(a)
            If InStr(words1.ToLower, TextBox7.Text.ToLower) Then
                ListBox1.SelectedItem = words1
 
            End If
 
        Next

Dim count2 As Integer = (ListBox2.Items.Count - 1)
        Dim words2 As String
 
 
        For a1 = 0 To count2
            words2 = ListBox2.Items.Item(a1)
            If InStr(words2.ToLower, TextBox7.Text.ToLower) Then
                If ListBox2.Visible = False Then
                    ListBox2.Visible = True
                End If
                ListBox2.SelectedItem = words2
            End If
        Next

Public Class Form1
    Dim PervRaz As Boolean = True
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If PervRaz Then
            'СЮДА вставить код для первого раза
 
            PervRaz = False
        Else
            'СЮДА для последующих нажатий
        End If
    End Sub
End Class

    Private PervRaz As Boolean = True
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If PervRaz Then
            'СЮДА вставить код для первого раза
            PervRaz = False 'если все выполнено меняем значение
            Exit sub  'и выходим из обработки события         
        Else
            'СЮДА для последующих нажатий
        End If
    End Sub

Public Class Form1
    Dim KolvoNag As Integer = 0
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        KolvoNag += 1
        Select Case KolvoNag
            Case 1
                Ololo(ListBox1)
            Case 2
                Ololo(ListBox2)
            Case 3
                KolvoNag = 0 'на третем разе обнуляем и потом будет заново
        End Select
    End Sub
 
    Sub Ololo(LB)
        Dim count As Integer = (LB.Items.Count - 1)
        Dim words As String
 
        For a = 0 To count
            words = LB.Items.Item(a)
            If InStr(words.ToLower, TextBox7.Text.ToLower) Then
                If LB.Visible = False Then
                    LB.Visible = True
                End If
                LB.SelectedItem = words
            End If
        Next
    End Sub
End Class