Language Basics VisualBasic Script

Option Explicit
     Dim Sales
     Sub Scope1()
         Sales = Sales + 1
         MsgBox Sales
     End Sub
     Sub Scope2()
         Sales = Sales + 10
         MsgBox Sales
     End Sub