Update SampleCode.Bas