Dim struser As New List(Of String)
struser = Session("chooseuser")
strruser = ""

For a = 0 To struser.Count - 1
If a = 0 Then
strruser = "'" struser.Item(a).ToString.Trim "'"
Else
strruser = strruser " , " "'" struser.Item(a).ToString.Trim "'"
End If
Next