Writing values to Textboxes on Chart Sheets - vba

Question

Looking for some guidance. I have created a statistics chart but also it lists the Top 5 WIP for certain categories.
the trouble I'm having is writing to text boxes on a chart. I have managed to do it with standard text boxes found on the insert tab but not with the ActiveX boxes which is what I need due to the need of scroll bars
Here is the function I have written to write strings to all text boxes.
Function Top5HeldCell(aSheet)
Dim row As Integer
Dim commentBox As TextBox
row = 12
For i = 4 To GetNumberOfEntries(aSheet, "A")
If Sheets(aSheet).Range("S" & i).Value <> "" Then
If Sheets(aSheet).Range("T" & i).Value = "" Then
rmNumber = Sheets(aSheet).Range("A" & i).Value
partNumber = Sheets(aSheet).Range("B" & i).Value
serialNumber = Sheets(aSheet).Range("C" & i).Value
ncNumber = Sheets(aSheet).Range("D" & i).Value
currentWIP = Sheets(aSheet).Range("W" & i).Value
Comments = Sheets(aSheet).Range("I" & i).Value
If row <= 16 Then
ActiveChart.Shapes.Range(Array("rmNumber" & row)).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = rmNumber
ActiveChart.Shapes.Range(Array("partNumber" & row)).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = partNumber
ActiveChart.Shapes.Range(Array("serialNumber" & row)).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = serialNumber
ActiveChart.Shapes.Range(Array("ncNumber" & row)).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = ncNumber
ActiveChart.Shapes.Range(Array("WIPTime" & row)).Select
Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = currentWIP
' This works using standard textboxes
'ActiveChart.Shapes.Range(Array("comment" & row)).Select
'Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = Comments
' here I'm trying to use ActiveX boxes
Charts("Statistics Chart").OLEObjects("comment" & row).Object.Text = ""
row = row + 1
End If
End If
End If
Next i
End Function
I seem to be getting the error 'Unable to get OLEObjects property of the Chart Class.
From using my nogging I expect this is something to do with the Charts not supporting this feature. Is there a work around that is known or am I really stuck???
Cheers