Chamar dados da listview com Botão em textbox

[viictorsam]

Precisando de uma ajudam, estou precisando montar um código para chamar dados de umas listview de acorda com a coluna chamar os dados da coluna da frente.

Ex: Ao clicar em um botão encontra o texto na coluna 2 da listview e pega o texto da coluna 3 na mesma linha e joga nas textboxs.

Tenho um código já esta funcionando, encontrei esse código com preenchimento de uma textbox e fiz a alteração para outras não sei se esta correto o Código:

    txtclient8 = ""
    txtserv8 = ""
    txtclient83 = ""
    txtserv83 = ""
    txtclient9.Text = ""
    txtserv9.Text = ""


Dim A8 As ListItem
Dim A83 As ListItem
Dim A9 As ListItem


For Each A8 In lvwadriana.ListItems
If A8.SubItems(2) = "08:00" Then
    txtclient8.Text = A8.SubItems(3)
    txtserv8.Text = A8.SubItems(4)
    Exit For
End If


For Each A83 In lvwadriana.ListItems
If A83.SubItems(2) = "08:30" Then
    txtclient83.Text = A83.SubItems(3)
    txtserv83.Text = A83.SubItems(4)
    Exit For
End If


For Each A9 In lvwadriana.ListItems
If A9.SubItems(2) = "09:00" Then
    txtclient9.Text = A9.SubItems(3)
    txtserv9.Text = A9.SubItems(4)
    Exit For
End If


Next
Next
Next