Hi,

New to vba

I have been given help to devise a list box of options and I want to get the selected value for the list box into the following code:-

Select Case result
Case Listbox value???
'
' Send email as is
'
Item.Subject = Item.Subject
Cancel = False

Case Listbox value???
'
' Send message restricted
'
Item.Subject = "restricted"+Item.Subject

Cancel = False

Case Listbox value???
'
' Send message restricted staff
'
Item.Subject = "restricted staff"

Cancel = False

Case Listbox value???:
'
' do not send the email
'
Cancel = True


End Select
End If
End Sub

I would appreciate any help in this area

Cheers