Hvilke items er selected

Fandt den selv på Microsoft's hjemmeside.

Sub CommandButton1_Click ()

          ' Loop through the items in the ListBox control.
          For x = 0 to ListBox1.ListCount - 1

            ' If the item is selected...
            If ListBox1.Selected(x) = True Then

                '...display the Selected item.
                MsgBox ListBox1.List(x)

            End If

        Next x

        ' Close the UserForm.
        Unload Me

      End Sub

Jeg får dog bare værdien Null ud

Det er ikke den du skal bruge hvis listen er en multiselectbox.
Du skal bruges listboxnavn.itemsselected
og loope gennem den.

Dim itm As Variant
Dim txt As String
If Me!liste2.ItemsSelected.Count > 0 Then
For Each itm In Me!liste2.ItemsSelected
txt = txt & Me!liste2.ItemData(itm) & " , "
Next itm
txt = Left(txt, Len(txt) - 2)
End If
MsgBox txt