Private Sub analizType_Click()
Dim liste As String
Dim sayi As Variant

If Me.analizType.ItemsSelected.Count = 0 Then
liste = ""
Me.analizRemarksHistory = "(Date of Record : " & Date & " / Type: " & " " & liste & " / Statu: " & " " & Me.analizStatus & " " & " / Remark: " & Me.analizRemarks & ") ___ "

Else
For Each sayi In Me.analizType.ItemsSelected
liste = liste & Me.analizType.Column(0, sayi) & "+"
Next sayi
liste = Left$(liste, Len(liste) - 1)

Me.analizRemarksHistory = "(Date of Record : " & Date & " / Type: " & " " & liste & " / Statu: " & " " & Me.analizStatus & " " & " / Remark: " & Me.analizRemarks & ") ___ "

End If
End Sub

yazdığım kodu analiztype liste kutusunun click olyına yapıştır. burada sana liste kutusunda seçili olan kaç tane değer varsa verecek. bunu nereye eklemek istiyorsan ekleyebilirsin.
kolay gelsin