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