dim ErrorLevel as integer=1
         Environment.Exit(ErrorLevel)