Botão alterar – cód só altera uma coluna

Olá a todos.
Meu formulario não altera todas as colunas.
Já usei mais de uma forma para me referir aos dados mas não consigo.

Meu formulario possui três TextBox, esses dados devem ser alterados a medida que a linha index da listbox, ao ser selecionada com o mouse, se consiga vizualizar o conteudo nas TextBox e consequentemente consiga alterar apenas digitando novamente.

Da forma como está só está alterando a segunda TextBox. Vou deixar o código anexo.
Desde já agradeço.
------------------------------------------- tentativa 1
Private Sub btn_alterar_Click()
Range(“a2”).Select

While ActiveCell <> “”

If TextBox1.Text = ActiveCell Then

ActiveCell.Offset(0, 1).Value = TextBox2.Text
ActiveCell.Offset(0, 2).Value = TextBox3.Text

End If

ActiveCell.Offset(1, 0).Activate

Wend

End Sub

------------------------------------------- tentativa 2
Dim lin01 As Integer
Dim func As String

lin01 = 1
func = cadastra_func.Value

Do Until Sheets(“FUNCIONARIOS”).Cells(lin01, 1).Value = Empty

If Sheets("FUNCIONARIOS").Cells(lin01, 1).Value = func Then  

   Sheets("FUNCIONARIOS").Cells(lin01, 2).Value = TextBox2.Value 
   Sheets("FUNCIONARIOS").Cells(lin01, 1).Value = TextBox1.Value 
        
   TextBox1.Value = Empty  
   TextBox2.Value = Empty
  
   
   MsgBox (" Dados alterados com sucesso!")

Exit Do

End If

lin01 = lin01 + 1

Loop