Public Sub EditField()
    Dim obj As Object
    Dim objProp As Outlook.UserProperty
    Dim strNote As String, strAcct As String, strCurrent As String
    Dim propertyAccessor As Outlook.propertyAccessor

    Dim Session As Outlook.NameSpace
    Dim currentExplorer As Explorer
    Dim Selection As Selection
    
    Dim obj As Object

    Set currentExplorer = Application.ActiveExplorer
    Set Selection = currentExplorer.Selection

' use this to use the same code for each item in the selection
    strNote = InputBox("Current Value: " & strCurrent, "Edit the Notes field", strCurrent)
  
    For Each obj In Selection
 
  Set UserProp = obj.UserProperties.Find("MyNotes")
    If Not UserProp Is Nothing Then
        strCurrent = obj.UserProperties("MyNotes").Value
    End If
    Debug.Print strCurrent

' use this line if you want unique values for each
'    strNote = InputBox("Current Value: " & strCurrent, "Edit the Notes field", strCurrent)
  
     Set objProp = obj.UserProperties.Add("MyNotes", olText, True)
        objProp.Value = strNote
        obj.Save
        Err.Clear

    Next

    Set Session = Nothing
    Set currentExplorer = Nothing
    Set obj = Nothing
    Set Selection = Nothing

End Sub