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