SendKeys com cmd

Um exemplo basico da utilização de Sendkeys

Sub cmd_sendkey()
Dim tempo
Dim prog
tempo = "0:00:02"
prog = "cmd.exe"
teste = Shell("" & prog, 1) ' Execute cmd
Application.Wait (Now + TimeValue("0:00:05"))
SendKeys "net send {%}computername{%} teste", True
Application.Wait (Now + TimeValue("" & tempo))
SendKeys "~", True
End Sub

O exemplo acima abre o prompt de comando e manda uma mensagem para o proprio computador, usando comando net send.