codice:
  dim app as Integer
  app = CInt(app2)