How about
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim frm As UserForm1
Dim chosenvalue As String
Dim strSubject As String
Const strCC As String = "someone@somewhere.com"
If TypeName(Item) = "MailItem" Then
strSubject = Item.Subject
chosenvalue = "*OPO* "
Set frm = New UserForm1
frm.Show vbModal
Select Case True
Case frm.OptionButton1.Value
If InStr(1, strSubject, chosenvalue) = 0 Then
strSubject = chosenvalue & strSubject
End If
Item.Subject = strSubject
If InStr(1, Item.CC, strCC) = 0 Then
Item.Recipients.Add(strCC).Type = 2
End If
Case frm.OptionButton2.Value
If InStr(1, strSubject, chosenvalue) > 0 Then
strSubject = Replace(strSubject, chosenvalue, "")
End If
Item.Subject = strSubject
If InStr(1, Item.CC, strCC) > 0 Then
Item.CC = ""
End If
Case Else
MsgBox "You did not select a value, Cancelling send."
Cancel = True
Exit Sub
End Select
End If
End Sub