Dim wsh As Object
Dim waitOnReturn As Boolean: waitOnReturn = True
Dim windowStyle As Integer: windowStyle = 1
Dim errorCode As Integer
Set wsh = VBA.CreateObject("WScript.Shell")
'Chay file bat
errorCode = wsh.Run(linkfilebat, windowStyle, waitOnReturn)
If errorCode <> 0 Then
'Co loi xay ra'
End If