Bom dia!!

Tentei isso

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox2.Value = "" Then
On Error Resume Next
    TextBox2 = Mid(TextBox1, 28, 7) ' Fórmula extrair texto
TextBox1.Value = ""
Me.TextBox1.SetFocus

ElseIf TextBox2 <> "" And TextBox3.Value = "" Then
On Error Resume Next
    TextBox3 = Mid(TextBox1, 28, 7) ' Fórmula extrair texto
TextBox1.Value = ""

ElseIf TextBox3 <> "" And TextBox4.Value = "" Then
TextBox4.Value = TextBox1
TextBox1.Value = ""

ElseIf TextBox3 <> "" And TextBox4 <> "" And TextBox5.Value = "" Then
TextBox5.Value = TextBox1
TextBox1.Value = ""

ElseIf TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" And TextBox6.Value = "" Then
TextBox6.Value = TextBox1
TextBox1.Value = ""

ElseIf TextBox3 <> "" And TextBox4 <> "" And TextBox5 <> "" And TextBox6 <> "" And TextBox7.Value = "" Then
TextBox7.Value = TextBox1
TextBox1.Value = ""


End If
End Sub

Obs: Não Testado!

Att

Alexandre, cara testei o código mas ele ta fazendo a mesma função que o meu faz, tipo ele lança o valor da textbox1 mas fica parado no textbox2 e não retorna sozinho pro textbox1, ele tem que lançar o valor, reconhecer que ta preenchido a textbox2 e retornar para textbox1 para que eu posso digitar um novo valor que vai preencher as próximas textbox, mas valeu a intenção, obrigado.

Boa tarde!!

Veja se assim funciona

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    
    Select Case True
    
        Case TextBox1.Value = ""
         
        Case TextBox2.Value = ""
            On Error Resume Next
            TextBox2 = Mid(TextBox1, 28, 7) ' Fórmula extrair texto
            On Error GoTo 0
            TextBox1.Value = ""
            Cancel = True
    
        Case TextBox3.Value = ""
            On Error Resume Next
            TextBox3 = Mid(TextBox1, 28, 7) ' Fórmula extrair texto
            On Error GoTo 0
            TextBox1.Value = ""
            Cancel = True
    
        Case TextBox4.Value = ""
            TextBox4.Value = TextBox1
            TextBox1.Value = ""
            Cancel = True
    
        Case TextBox5.Value = ""
            TextBox5.Value = TextBox1
            TextBox1.Value = ""
            Cancel = True
    
        Case TextBox6.Value = ""
            TextBox6.Value = TextBox1
            TextBox1.Value = ""
            Cancel = True
            
        Case TextBox7.Value = ""
            TextBox7.Value = TextBox1
            TextBox1.Value = ""
            Cancel = True
            
        Case Else
            MsgBox "Todas as Caixas forma preenchidas. ", vbInformation, "Preenchimento"
            
    End Select
    
End Sub

Alexandre perfeito brother é isso mesmo que eu precisava, mas só mais uma pergunta que eu acabei esquecendo de mencionar, digito no textbox1 e ele preenche o textbox2 dai ele vai pro textbox3 eu preencho o textbox3 manualmente dai ele volta pro textbox1, perdão era assim que eu precisava, to anexando aqui as modificações pra você dar uma olhada pra mim se não for pedir muito, mas cara perfeito o que você fez, muito perfeito mesmo. Desde já te agradeço mesmo meu, Segue dois anexos.