No I really don't speak VB of whatever this is... I stole it and customized to my needs...
Private Function PlatformSelected()
Dim Platform As Variant
Dim strItems As String
For Each Platform In Me![lstPlatform].ItemsSelected()
If Len(strItems) <> 0 Then strItems = strItems
strItems = strItems & Me![lstPlatform].Column(0, Platform) + ", " & Me![lstPlatform].Column(1, Platform)
Next Platform
PlatformSelected = strItems
End Function
I tried changing the & to + in this but I still get the ending ",
Private Function PlatformSelected()
Dim Platform As Variant
Dim strItems As String
For Each Platform In Me![lstPlatform].ItemsSelected()
If Len(strItems) <> 0 Then strItems = strItems
strItems = strItems & Me![lstPlatform].Column(0, Platform) + ", " & Me![lstPlatform].Column(1, Platform)
Next Platform
PlatformSelected = strItems
End Function
I tried changing the & to + in this but I still get the ending ",