Error 550 - Too many data statements

Too many data statements - Data is limited to 64 Kb per Sub or Function, and 16384 individual data items. Either reduce the number of DATA statements, or split the data into separate Subs/Functions.