[Resolvido]Usar sequencia de SendKeys?

Ola, bom dia a todos
Gostaria de saber se alguém faz ideia de como usar uma sequencia de sendkeys; no caso os dados foram duplicados e falta atualizar data e hora, daí surge a duvida, como executar esta sequência, do jeito que fiz só esta funcionando uma key.

Private Sub Comando56_Click()
On Error GoTo Err_Comando56_Click


   DoCmd.RunCommand acCmdSelectRecord
   DoCmd.RunCommand acCmdCopy
   DoCmd.RunCommand acCmdRecordsGoToNew
   DoCmd.RunCommand acCmdSelectRecord
   DoCmd.RunCommand acCmdPaste
   Me.Texto218.SetFocus
   SendKeys "+^(:)"
   Me.Texto118.SetFocus
   SendKeys "^(;)"
   

Exit_Comando56_Click:
   Exit Sub

Err_Comando56_Click:
   MsgBox Err.Description
   Resume Exit_Comando56_Click

Use dessa forma que irá funcionar

Código:

Me.Texto118.SetFocus
SendKeys ("^{;}")

Me.Texto218.SetFocus
SendKeys ("^+{;}")

Só uma dica, se é que me permite...

Pq vc não usa as funções Date e DateTime

Código:

Me.Texto118=VBA.Date
Me.Texto218.SetFocus= VBA.DateTime.Time

Você pode até eliminar as linhas de SetFocus

Testado usando:

Me.Texto118 =VBA.Date
Me.Texto218 = VBA.DateTime.Time

Funcionou perfeitamente,
muito grato pela dica, valew