The split function returns a "standard" array, so just declare as dynamic array, say
Dim TableNames() As String
TableNames = Split("tblMain,tblPartStatus,tblPartTypes,tblSystemVars,tblUsers", ",")
debug.print Join(TableNames, " -@- ")
then maintenance will be easier when the amount of data...