Problema na macro

Olá Allvinho mude para isso

Private Sub CommandButton1_Click()
TextBox6.Enabled = False
TextBox5.Enabled = False
TextBox3.Enabled = False

If TextBox7.Value = "1" Then
Dim Endereco$, Rng As Range
 Set col = Plan7.Columns(1)
 Set Rng = col.Find(TextBox4, , , True)
 If Not Rng Is Nothing Then
   Endereco = Rng.Address

Elseif TextBox6.Value = "" or TextBox5.Value = "" or TextBox3.Value = ""
	MsgBox " TREINAMENTO NÃO ENCONTRADO ", vbOKOnly + 64
End if
Exit Sub
End If
TextBox6.Value = Plan7.Range(Endereco).Offset(0, 2).Value
TextBox5.Value = Plan7.Range(Endereco).Offset(0, 3).Value
TextBox3.Value = Plan7.Range(Endereco).Offset(0, 4).Value
End If