PowerPointのボタンにマクロ設定

PowerPointでSlide1にテキストボックスとボタンを配置して、
ボタンを押すとテキストボックスの値をクリアしSlide2に遷移する動作の実装方法を教えてください。
ボタンに下記のマクロを設定したのですが、２回クリックしないと、値をクリアして次の画面に遷移しません。
１回のクリックで値のクリアと遷移を同時にしたいのですが、正しい記述方法を教えてください。

Sub pagenext()

LblAnser.Text = " "
ActivePresentation.SlideShowWindow.View.Next

End Sub

No.1 回答者： DreamyCat 回答日時： 2011/11/03 00:50

２０１０版で２枚だけのスライドでですがそれで何も問題なく消えます。

たくさんのオブジェクトを挿入した枚数が多いプレゼンテーションで不具合が起きているか
他のアニメの設定で「クリックで開始」に設定したものが残っているためではないかと思います。
おそらく後者ではないかと。。。