' Listing 5. Code Defining Buf as a True Global Variable

Option Explicit 
Dim buf
buf = 0

' Sets buf to 1.
AnotherProc

' Displays the value of 1, whether you use ExecuteGlobal or Execute.
MsgBox buf	

Sub AnotherProc
	Dim procCode
	procCode = "Sub Foo: buf=1: End Sub"
	ExecuteGlobal procCode
	Foo
End Sub