Alla fine ho risolto con un API, giusto per la precisione aggiorno il mio post, chissā magari servirā a qualcuno

Public Declare Sub ExitProcess Lib "kernel32" (ByVal uExitCode As Long)




Sub Main()

Call ExitProcess(1)

End Sub