Private Sub FCnext_Click()
If TextBox1 = True Then
  If Me.TextBox1.Text <> "" Then
    SlideShowWindows(1).View.GotoSlide (osld.SlideIndex)
  End If
End If
End Sub
 
Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
Dim osld As Slide
Dim oshp As Shape
Dim b_found As Boolean
If KeyCode = 13 Then 'ENTER PRESSED
  If Me.TextBox1.Text <> "" Then
    For Each osld In ActivePresentation.Slides
      For Each oshp In osld.Shapes
        If oshp.HasTextFrame Then
          If oshp.TextFrame.HasText Then
            If InStr(UCase(oshp.TextFrame.TextRange), UCase(Me.TextBox1.Text)) > 0 Then
              SlideShowWindows(1).View.GotoSlide (osld.SlideIndex)
              Me.TextBox1.Text = ""
              b_found = True
              Exit For
            End If
          End If
        End If
      Next oshp
      If b_found = True Then Exit For
    Next osld
  End If
  If b_found = False Then MsgBox "Not found"
End If
End Sub