Partindo do suposto que o codigo do cliente se encontra na primeira coluna, então segue um exemplo bem simples

Dim Ws As Worksheet
Dim UltimaLinha, i As Long

Private Sub LocalizarCliente()
Set Ws = Sheets("plan1") 'ARMAZENA O NOME DA PLANILHA A QUAL DESEJA FAZER A PESQUISA
UltimaLinha = Ws.Cells(Cells.Rows.Count, 1).End(xlUp).Row 'VERIFICA A ULTIMA LINHA PREENCHIDA

    'REALIZARÁ UM LOOP PERCORRENDO ATÉ A ULTIMA LINHA DA PLANILHA
    For i = 2 To UltimaLinha
        If Ws.Range("A" & i).Value = TxtCodCliente.Value Then     'SUPOE-SE QUE O TxtCodCliente TENHA O CRITÉRIO DE BUSCA
                txtnome.Value = Ws.Range("B" & i).Value      'IRÁ RODAR E COMPARAR CADA LINHA DA PLANILHA COM O CONTEUDO
                txtendereco.Value = Ws.Range("C" & i).Value  'DA TxtCodCliente, SE ENCONTRAR ENTÃO PREENCHE OS OUTROS CAMPOS
        End If
    Next
End Sub

Sobre gravar os dados de visita, qual seria o layout da tabela?