' Listing 1. Code That Produces an Error Message

buf = "Hello"
AnotherProc

Sub AnotherProc
	Dim procCode
	procCode = "Sub Foo: MsgBox buf: End Sub"
	Execute procCode
' BEGIN CALLOUT A
	Foo
' END CALLOUT A
End Sub

buf = "Hello"
AnotherProc
' BEGIN CALLOUT B
Foo
' END CALLOUT B