Update SampleCode.Bas

Added test for Mid$() with just 2 args