No declarations

'To Store selected Listbox items Function GetSelected() As String Dim str As String str = "" For i = 0 To List1.ListCount - 1 If List1.Selected(i) = True Then 'MID function is used becz listbox is loaded with more than one column str = str & Trim(Mid(List1.List(i), 1, 6)) & ":" End If Next If Len(str) > 0 Then str = Mid(str, 1, Len(str) - 1) Else str = "No Equipment" End If GetSelected = str End Function 'To Select back Sub SelectItems(ste As String) If ste = "No Equipment" Then Else Dim bs bs = Split(ste, ":") For i = 0 To UBound(bs) For j = 0 To List1.ListCount - 1 If bs(i) = Trim(Mid(List1.List(j), 1, 6)) Then On Error Resume Next List1.Selected(j) = True End If Next Next End If End Sub