Запуск файла .bat с помощью Excel VBA

Question

У меня есть командный файл, который запускается, когда я дважды щелкаю по нему. Но он не работает, когда я запускаю его полностью Excel VBA. Ниже приведен код, который я использовал.

Dim RetVal
    RetVal = Shell("C:\Script.bat", 1)
End Sub

У меня есть скрипт в текстовом файле, я создал командный файл и ввел код как ftp -i -s:script.txt. Он работает нормально, когда я нажимаю на командный файл.

Сценарий, введенный в текстовый файл,

open aa123.aa1.aaa.com
user
pwd
ascii
lcd C:\Users\sakthi\Desktop
cd data/folder
get filename.zip
bye

1. Когда я запускаю файл bat, по умолчанию CMD проверяет связанный текстовый файл из My Documents, но у меня есть связанный текстовый файл в той же папке. Как изменить его в определенную папку?
2. Требуется всего 20 секунд, чтобы завершить прогон, когда я нажал прямо на командный файл. Но это занимает больше минуты, когда я запускаю командный файл с помощью макроса и получаю ошибку тайм-аута на экране CMD. Как это решить?