Private ServiceType() as string
Form_Initialize 'or Class_Intitialize
ServiceType = Split("ITEM1,ITEM2,ITEM3,ITEM4,ITEM5",","

End Sub
In a Sub or Function
.... SUb ....
Static ServiceType() as String
Static blnInit as Boolean
if blnInit = false then
ServiceType = Split("ITEM1,ITEM2,ITEM3,ITEM4,ITEM5",","

blnInit = True
end if
End Sub
Change if "," can occur in data the substitute "~" or whatever.
Forms/Controls Resizing/Tabbing Control
Compare Code (Text)
Generate Sort Class in VB or VBScript