[ОШИБКА] Запуск .bat файла - VB

Формулировка задачи:

Здравствуйте. У меня программа создает .bat файл, который должен запускать игру с определенными параметрами, программа сначала создает файл и потом его запускает сама. Программу я кидаю не всю, а ее кусочек который является проблемным: Предполагается, что переменные все заполнены нужной информацией и я имеют тип string.

Private Declare Function ShellExecute Lib "shell32.dll" Alias _
"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, _
ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Const SW_NORMAL = (1&)
 
Private Sub Command10_Click()
Dim File As String
File = dire & "\launch.bat"
Open File For Output As #1
Print #1, "%~d0"
Print #1, "cd /c ""%~p0"""
Print #1, "start "; "Expansion\beta\arma2oa.exe -mod=@dayz_epoch;"; " -Connect=217.23.74.148 "; "-Port=2302"; " -Name="; PlayerName; " - maxMem="; RAM; " - maxVRAM="; GPU; " - cpuCount="; CPU; " -exThreads="; geometry; " "; world; " "; splash; " "; GameSound; " "; GameWindow; MulticoreDrawing; " "; GameSound; " -noPause"
Close #1
Pause 1
Call ShellExecute(Me.hwnd, "open", dire & "\launch.bat", 0&, 0&, SW_NORMAL&)
End Sub

Переменная dire содержит в себе путь, где .bat файл будет создан, а в последствии запущен. Но проблема в том, что при запуске этого файла возникает ошибка (та что на картинке) не программная, а консольная. При этом если я запускаю .bat файл вручную то все прекрасно запускается и работает. Я не понимаю в чем проблема. Скорее всего проблема кроется в этой строке:

Call ShellExecute(Me.hwnd, "open", dire & "\launch.bat", 0&, 0&, SW_NORMAL&)

Решение задачи: «[ОШИБКА] Запуск .bat файла»

textual
                            Листинг программы 
                        
                            ..., 0&, "D:\Games\DayzEpoch\", SW_NORMAL&)