Dosyayı inceleme imkanım yok ama aşağıdakine benzer bir kod işinize yarayabilior

Private Sub Command1_Click()

Dim myPath As String

myPath = "C:\Program Files\mytool\MyFile.bat"

Call Shell(myPath , 1)

End Sub