Problem with commas in string array

[f15e]

There is probably a simple solution but I've looked online and found everything BUT what I need. I have a string array as shown below and when I output 'tbls_array(7, 1)' and 'tbls_array(10, 1),', the string is cutoff at the first comma. I realize that it's cutting off due to the comma delimitation, but I don't want that. I want to output the string in tact with commas in it.

How would I go about doing this?

'************************************************* **
Dim tbls_array(11, 2) As Variant

tbls_array(0, 0) = "Areas_Tbl"
tbls_array(0, 1) = "Project Facility Areas"
tbls_array(1, 0) = "Bridge_Gross_Wt_Hist_Tbl"
tbls_array(1, 1) = "Revision history of Bridge gross weights"
tbls_array(2, 0) = "Contingency_Tbl"
tbls_array(2, 1) = "List of Project Contingencies"
tbls_array(3, 0) = "DisciplineList_Tbl"
tbls_array(3, 1) = "List of Disciplines whose weight data is relevant to WCR"
tbls_array(4, 0) = "Flareboom_Gross_Wt_Hist_Tbl"
tbls_array(4, 1) = "Revision history of Flareboom gross weights"
tbls_array(5, 0) = "Jacket_Gross_Wt_Hist_Tbl"
tbls_array(5, 1) = "Revision history of Jacket gross weights"
tbls_array(6, 0) = "Piles_Gross_Wt_Hist_Tbl"
tbls_array(6, 1) = "Revision history of Piles gross weights"
tbls_array(7, 0) = "Proj_ID_Data_Tbl"
tbls_array(7, 1) = "Project Information (Client, Proj. Name, Proj. Number, etc.)"
tbls_array(8, 0) = "TimeCodes_Tbl"
tbls_array(8, 1) = "Time Codes and Descriptions"
tbls_array(9, 0) = "Topsides_Gross_Wt_Hist_Tbl"


tbls_array(9, 1) = "Revision history of Topside gross weights"
tbls_array(10, 0) = "Weight_Data_Tbl"
tbls_array(10, 1) = "WCR Database Main Data Table (Weights, Coordinates, etc.)"

[CJ_London]

probably something to do with the way you are trying to output it. So how are you outputting?

[f15e]

I finally found the answer. I am adding the string values into a 2 column listbox, using for loop, and was adding them as follows:
Me.Table_List_Box.AddItem tbls_array(i, 0) & ";" & tbls_array(i, 1)

Apparently if you have commas in your string, it will be truncated at the first comma and therefore you have to enclose the string with single quotes like so:
Me.Table_List_Box.AddItem tbls_array(i, 0) & ";" & "'" & tbls_array(i, 1) & "'"