Значит, все-таки проблема с каталогами.

Попробуйте вместо 

вставить строки

Это приведет к тому, что окно командного процессора останется. Там можно будет и просмотреть вывод, и попытаться вручную повторить строку запуска, которую специально для этого выведет msgbox.

PS. У меня мой код работает как часы.
PPS. А App.Path - часом не ДЛИННОЕ имя?

Мистика какая-то   

Вчера создал новую папку и создал нрвый проект с предложенным  вами кодом, он не работал.
Запустил сегодня, действительно все норм

Private Sub Command1_Click()
  Open App.Path & "\d13510.txt" For Output As #2
  Print #2, "d13510"
  Print #2, ""
  Close #2
  Shell App.Path + "\" & "gsmkw.exe < d13510.txt", vbNormalFocus
  Sleep 5000
End Sub

если точно эти же строки вставить в изначальный проект то не пашит.

Проблема действительно в Apppath, у меня папка проекта называлась "Запуск exe" 
поменял на "zapusk exe", подключил по новой файл ресурсов и все норм.

Спасибо большое!