This should get you going:
[vba]Sub Take_me()
Dim strSlide As String
Dim IntSlide As Integer
Do
strSlide = InputBox("Where to?")
Loop Until IsNumeric(strSlide)
IntSlide = Val(strSlide)
If IntSlide < 1 Or IntSlide > ActivePresentation.Slides.Count Then
MsgBox "Out of range"
Exit Sub
End If
ActivePresentation.Slides(IntSlide).Select
End Sub[/vba]