Sub Macro1()
Points 10, 5, 3, 12, 0.2, 15
End Sub
Sub Points(ParamArray P())
Dim N&, T() As String
ReDim T(0 To UBound(P) \ 3)
For N = 0 To UBound(P) Step 3
T(N \ 3) = "Point " & N \ 3 + 1 & ": X=" & P(N) & " Y=" & P(N + 1) & " Z=" & P(N + 2)
Next N
MsgBox Join(T, vbLf)
End Sub