Do mean like this? Click "Arranged File Name" on top toolbar.

PART of the code is doing things like:

Starting with a variable MyName being made to equal "Note for Sofia Kogan on 5/10/2010"...

MyName = Replace(MyName, " ", "_")
becomes "Note_for_Sofia_Kogan_on_5/10/2010"

MyName = Replace(MyName, "/", "_")
becomes "Note_for_Sofia_Kogan_on_5_10_2010"

MyName = Replace(MyName, "on", "")
becomes "Note_for_Sofia_Kogan__5_10_2010"
***note the TWO underscore characters now

MyName = Replace(MyName, "for", "")
becomes "Note__Sofia_Kogan__5_10_2010"
*** another double underscore

MyName = Replace(MyName, "__", "_")
becomes "Note_Sofia_Kogan_5_10_2010"

The rest of the code makes an array of all the words, resorts them to get Note after Sofia_Kogan.

As you can see string manipulation is fully possible, it just gets complicated and requires one to be EXACT and precise in intention.