' Listing 4. Code Defining Buf as a Global Variable

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