・リストボックスをクリアする

dim vWk as variant

    For Each vWk In .lstAroma.ItemsSelected
      me.lstAroma.Selected(vWk) = False
    Next
    me.lstAroma.Selected(0) = False

・リストボックスの値を取得する

dim vWk as variant
dim sString as string
    sString = ""
    For Each vWk In .lstAroma.ItemsSelected
        If sString <> "" Then
            sString = sString & ","
        End If

        sString = sString & Me.lstAroma.ItemData(vWk)
    Next

↓上記結果をイミディエイトウィンドウで確認した結果
?sstring
アニス,イランイラン,カモミールローマン