変数p1からp5まで（実際にはp50まで）の全てを一気に0にするため、
次のようなFor文を書いてみましたがエラーになってしまいます。
どこがマズいですか？

Sub test()

　p1 = 1
　p2 = 2
　p3 = 3
　p4 = 4
　p5 = 5

　For x = 1 To 5
　　p(x) = 0
　Next

　MsgBox "p1=" & p1 & ", p2=" & p2 & ", p3=" & p3 & ", p4=" & p4 & ", p5=" & p5
End Sub