Buscar y seleccionar una fila de un ListBox según valor de un TextBox

Te anexo el código:

Private Sub CommandButton1_Click()
'Por.Dante Amor
    If TextBox1 = "" Then
        MsgBox "Captura un dato en el textbox"
        TextBox1.SetFocus
        Exit Sub
    End If
    If ListBox1.ListCount = 0 Then
        MsgBox "No hay datos en el listbox"
        TextBox1.SetFocus
        Exit Sub
    End If
    '
    existe = False
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.List(i, 1) = TextBox1 Then
            ListBox1.Selected(i) = True
            existe = True
            Exit For
        End If
    Next
    If existe = False Then
        MsgBox "Ningún dato coincide"
        TextBox1.SetFocus
        Exit Sub
    End If
End Sub

'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias