Example:

1. Sub Main()

   1.  

      Dim Var1 as String

      Var1 = "hello"

      MsgBox " Calling Test"

      Test Var1

      MsgBox Var1

       

   End Sub

    

   Sub Test(wvar1 as string)

   1.  

      wvar1 = "goodbye"

      MsgBox "Use of End Statement"

      End

       

   End Sub