Dim RetVal
RetVal = Shell("C:\Program Files\Belgium Identity Card\beid35gui.exe", 9)
SendKeys "%C"
SendKeys "{DOWN 2}"
SendKeys "~"
SendKeys "%C"
SendKeys "{DOWN 1}"
SendKeys "~"
SendKeys "%C"
SendKeys "{DOWN 6}"
SendKeys "~"
SendKeys "^a"
SendKeys "^c"
SendKeys "~"