Sub build_list_string()
'Type dataentries (firstname As String, surname As String, email As String, phoneno As String, company as string, score As Int)
Dim p As dataentries
p.firstname = first_name.Text
p.surname = surname.Text
p.email = email.Text
p.phoneno = telephone.Text
p.company = company.Text
p.score=score
data.Add(p)
data.SortType("score",True)
su.SaveCSV(File.DirRootExternal, filename &".csv",",",data)
End Sub