The following subroutine example creates an X chart, adds one region to it, and creates multiple subgroups within that region. It then fills a string table and maps zone 3 to those strings.
Private Sub Command2_Click()
Dim sText As String
Chart1.Reset 'Start over
Chart1.ChartType = 3 'X chart
Chart1.AddRegion 'Make 1 Region
'Add Data
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(1).AddItem 11
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(2).AddItem 32
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(3).AddItem 9
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(4).AddItem 11
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(5).AddItem 0
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(6).AddItem 11
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(7).AddItem 32
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(8).AddItem 9
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(9).AddItem 11
Chart1.Regions(1).AddSubGroup
Chart1.Regions(1).SubGroups(10).AddItem 27
'Create a custom string
sText = CStr(Chart1.Regions(1).SubGroupCount / Chart1.RegionCount)
sText = sText + " SubGroups/Region."
'Add the strings (5 is arbitrary)
Chart1.StringTables(5).Items(1).Value = "Text windows can pro-"
Chart1.StringTables(5).Items(2).Value = "vide a custom readout,"
Chart1.StringTables(5).Items(3).Value = "based on your needs."
'Using item 6 leaves 2 spaces in between
Chart1.StringTables(5).Items(6).Value = sText
'Map the strings to the zone
Chart1.Zones(3).StringTableIndex = 5
Chart1.Recalculate 'Ready
End Sub