Update SamplePBcode.Bas

Added sample code for Sub/End Sub and While/Wend