Mega Code Archive

 

Categories / VisualBasic Script / Language Basics

 

Pass by value

Sub PassByVal()     Dim strFirstName As String     Dim strLastName As String     strFirstName = "A"     strLastName = "B"     Call FuncByVal(strFirstName, strLastName)     Debug.Print strFirstName     Debug.Print strLastName End Sub Sub FuncByVal(ByVal strFirstParm As String, _ ByVal strSecondParm As String)     strFirstParm = "C"     strSecondParm = "D" End Sub