Sub PassByRef()
Dim strFirstName As String
Dim strLastName As String
strFirstName = "A"
strLastName = "Balter"
Call FuncByRef(strFirstName, strLastName)
Debug.Print strFirstName
Debug.Print strLastName
End Sub
Sub FuncByRef(strFirstParm As String, strSecondParm As String)
strFirstParm = "A"
strSecondParm = "B"
End Sub