Dim Ruta As String Ruta = My.Application.Info.DirectoryPath & "\batch.bat" Shell (Ruta, vbNormalFocus)