Hi,
You can select multiple items from the Web List by using 
ExtendSelect.
For Ex:

Browser().Page().Weblist(WebListName).Select(WebListValue1)
Browser().Page().Weblist(WebListName).ExtendSelect
(WebListValue2)
Browser().Page().Weblist(WebListName).ExtendSelect
(WebListValue3)
.................. ....... (WebListValue4)
..................  .......(WebListValue5)

Dim a,i

'Getting list box count

a=Browser().Page().Weblist(WebListName).GetItemsCount 

'getting list box values

For i=0 to a-1
    msgbox  Browser().Page().Weblist(WebListName).GetItem
(i),4,"States" 
Next

' Check if multiple items exist in 
listbox, IF yes, then select those ELSE report error
         Dim AppList ,Obj
		 AppList = ListApplicationsToSelect()
         Set Obj = Browser("SMART").Page("Add User").WebList
("seiApp")
        ItemSelected = SelectMultipleListItems 
("SEI_Applications", Obj, AppList)
        SelectMultipleListItems(
	   	If  ItemSelected <> "PASS" Then
            AddUserInfo_Page1 = ItemSelected
			'Exit function 
		end if