Вывод фамилий(Visual Basic.net)

[Zepko]

Вывести фамилии рабочих бригады, начинающиеся с букв А и С, с указанием их месячной зарплаты и стажа работы (лет).
Помогите исправить сам вывод-баттон5(
Мой код:

Public Class Form1
    Dim fio As New List(Of String)
    Dim zp, exp, i As New List(Of Integer)
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        TextBox5.Visible = False
 
        fio.Add("Ефимов П.В.")
        zp.Add(10000)
        exp.Add(0)
 
 
        fio.Add("Баба Маня")
        zp.Add(6000)
        exp.Add(7)
 

        fio.Add("Иванова И.Б.")
        zp.Ad(8500)
Exp.add(4)
fio.Add("Сурков В.Д.")
        zp.Add(17000)
        exp.Add(5)
 
 
        fio.Add("Кукушкина В.Л.")
        zp.Add(12000)
        exp.Add(2)
 
 
        fio.Add("Киселев Е.Д.")
        zp.Add(35000)
        exp.Add(10)
 
        fio.Add("Тушилин В.В.")
        zp.Add(13000)
        exp.Add(1)
Dim i As Integer
        For i = 0 To fio.Count - 1
            PrintList(fio(i), CStr(zp(i)), exp(i))
        Next i
    End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
   TextBox1.Text)
        zp.Add(Val(TextBox2.Text))
        exp.Add(Val(TextBox3.Text))
        PrintList(TextBox1.Text, TextBox2.Text, Val(TextBox3.Text))
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
    End Sub
 
    Sub PrintList(ByVal fio As String, ByVal zp As String, ByVal exp As Integer)
        Dim temp As String
        temp = fio + Space(3)
        temp += zp + " руб." + Space(3)
        If exp > 10 And exp < 15 Or exp Mod 10 = 0 Or exp Mod 10 > 4 Then
            temp += CStr(exp) + " лет" + Space(3)
        ElseIf exp Mod 10 = 1 Then
            temp += CStr(exp) + " год" + Space(3)
        Else
            temp += CStr(exp) + " годa" + Space(3)
        End If
        ListBox1.Items.Add(temp)
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        'КНОПКА ВЫВОДА в текст бокс
        'TextBox5.Text =From Line As String In ListBox1.Items.Cast(Of String).ToArray Where Line.StartsWith("А") _
          Or Line.StartsWith("С") Select string
    End Sub
End Class

[Stilet]

    Sub PrintList(ByVal fio As String, ByVal zp As String, ByVal exp As Integer)
  if (mid(fio,1,1)<>"A") or (mid(fio,1,1)<>"C") then
   exit sub
  end if
...
Тута Твое-на
...
        ListBox1.Items.Add(temp)
    End Sub

Если не ошибаюсь

[Zepko]

Это вместо Баттон 5 клик ?чет не пойму