I'm looking for some help with a bit of vb code.

I'm have a text box on a slide to allow users to type in the box.  There is
also a command button that looks at the contents of the box and goes to the
appropriate slide.   I have listed the vb code below

Private Sub CommandButton1_Click()
   
   With Slide1
       If UCase(TextBox1.Text) = "TEST" Then
           MsgBox "You typed TEST.  I should now go to slide 3"
           With SlideShowWindows(1).View
               .GotoSlide 3, msoTrue
           End With
       Else
           MsgBox "You typed something else.  I should now go to slide 2"
           With SlideShowWindows(1).View
               .GotoSlide 2, msoTrue
           End With
       End If
   End With

End Sub

All works well until I exit PowerPoint.  When I open the presentation again
the button doesn't work.  If I copy the code to a new presentation it works
fine until I exit.

I'm obviously missing something.  Any help greatly appreciated.