Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Pass variable by value

Sub CubeRoot(ByVal dblNumber As Double)     dblNumber = dblNumber ^ (1 / 3) End Sub Sub CubeRootWrapper()     Dim dblVariable As Double     dblVariable = 8     Debug.Print "Before: " & dblVariable     CubeRoot dblVariable     Debug.Print "After: " & dblVariable End Sub