Powerpoint VisualBasic Script

Sub current()
    MsgBox ActivePresentation.SlideShowWindow.View.CurrentShowPosition
End Sub