Get Child Items from Pivot Table

Question

Dim arr() As String
Dim i As Integer

Dim pt As PivotTable
Dim pf As PivotField
Dim pi As PivotItem
Dim cpi As PivotItem
Dim strMsg As String
Dim rw As String

S