Dim items As List
items.Initialize
Do While a.Contains(",")
a = a.SubString(a.IndexOf("'") + 1)
items.Add(a.SubString2(0, a.IndexOf("'")))
a = a.SubString(a.IndexOf(",") + 1)
Loop
a = a.SubString(a.IndexOf("'") + 1)
items.Add(a.SubString2(0, a.IndexOf("'")))
AutoCompleteEditText1.SetItems(items)