Como colocar un valor de una tabla dinámica en un TextBox

Hola amigos requiero que alguien me indique como colocar un valor, que está
en Datos de una Tabla Dinámica (ejm Promedio de ventas), a un TextBox de un
UserForm (mediante VBA) con los datos seleccionados de dos ComboBoxes (ejm.
APELLIDOS, NOMBRE) que son los mismos del campo de Fila de la Tabla Dinámica.



ActiveSheet.PivotTables("Tabla dinámica1").AddFields RowFields:=Array( _
"APELLIDOS", "NOMBRE", "Datos")
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Promedio
Ventas")
.Orientation = xlDataField
.Position = 1
.Function = xlAverage
End With
ActiveWorkbook.ShowPivotTableFieldList = True
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("APELLIDOS")
.PivotItems("0").Visible = False
.PivotItems("PEREZ").Visible = False
.PivotItems("RODRIGUEZ”).Visible = False
.PivotItems("ROMITA").Visible = False
End With
With ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("NOMBRE")
.PivotItems("0").Visible = False
.PivotItems("CARLOS").Visible = False
.PivotItems("JUAN").Visible = False
.PivotItems("JULIAN").Visible = False
End With
End Sub

En definitiva lo que se requiere es colocar en un TextBox (de un UserForm1)
el Promedio de Ventas, de la Tabla dinámica 1, de un vendedor, seleccionando
los Ítems, APELLIDO y el NOMBRE (ejm González José) de dos ComboBoxes del
UserForm referido. Estos Ítems son los mismos de la Tabla dinámica.
Saludos……..O. Yaguas