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