Update SampleCode.Bas

Added examples for implicit Dim