Private Function Change_First(ByRef First As Integer, ByVal Second _
    As Integer) As Integer
  First = Second  ' Assign value of second to first
  Change_First = First + Second
End Function

Public Sub Main() 
  Dim A As Integer, B As Integer, Result As Integer

  A = 0
  B = 5
  Result = 0

  Debug.Print "Value of a, value of b, result", A, B, Result
  Result = Change_First(A, B)
  Debug.Print "Value of a, value of b, result", A, B, Result
End Sub