Language Basics VisualBasic Script

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