VBA

Dim WB As Workbook
Dim ws As Worksheet
Global gg As Integer

gg = 4
  Set wb = ActiveWorkbook
  Set ws = WB.Worksheets.Add
  ws.Name = "test"

Dim a as Integer

  a=1
Cells(1, 1) = a + 1
Debug.Print "gg=" & gg

Function Test()
Dim b
  b=22
  Test = b
End Function

Sub main()
Dim b
  b = Test()
End Sub