Private Sub cmdOkay_Click() Dim strAnimal As String strAnimal = "Dog" Call ChangeAnimal Debug.Print strAnimal 'Still Dog End Sub Private Sub ChangeAnimal() strAnimal = "Cat" End Sub