SendKeys fora da sequencia programada

Olá, gostaria de um auxilio:

Com o código abaixo eu gostaria que o seguinte acontecesse:

Dados antes do comando

Textbox"Datahist" - 06/05/2021
Textbox"Usuário" - Pietrobom
Textbox"Historico" - Teste

após rodar o comando (Botão - SubmitHist)

Textbox"Datahist" - "vazio"
Textbox"Usuario" - "vazio"
Textbox"Historico" - 06/05/2021 - Teste - Pietrobom

mas está saindo assim - 06/05/2021TestePietrobom - -

Segue comando

Código:

Private Sub SubmitHist_Click()
    
    With Me.Historico
    Me.datahist.SetFocus
    DoCmd.RunCommand acCmdCut
    .SetFocus
    .SelStart = 0
    
    DoCmd.RunCommand acCmdPaste
    
    TWait = Time
    TWait = DateAdd("s", 1, TWait)
    Do Until TNow >= TWait
    TNow = Time
    Loop
        
    .SelStart = 10
    
    TWait = Time
    TWait = DateAdd("s", 1, TWait)
    Do Until TNow >= TWait
    TNow = Time
    Loop
    
    SendKeys " - "
    
    Me.Usuario.SetFocus
    DoCmd.RunCommand acCmdCut
    .SetFocus
    .SelStart = Len(.Text)
    
    TWait = Time
    TWait = DateAdd("s", 1, TWait)
    Do Until TNow >= TWait
    TNow = Time
    Loop
    
    SendKeys " - "
    
    TWait = Time
    TWait = DateAdd("s", 1, TWait)
    Do Until TNow >= TWait
    TNow = Time
    Loop
    
    DoCmd.RunCommand acCmdPaste
    
    
    End With
          
End Sub

Poderiam me ajudar a fazer o sendkeys rodar na sequencia da codificação?
Grato.