Function ОСТАВИТЬТОЛЬКОДАТЫ(myString As String)
          
     Dim objRegExp   As Object
     Dim objMatch    As Object
     Dim colMatches  As Object
     Dim RetStr      As String
     Dim val2replace As String
          
     RetStr = Replace(Replace("," & myString, "от", "_"), " ", "")
          
     Set objRegExp = CreateObject("VBScript.RegExp")
          
     With objRegExp
         .Global = True
         .IgnoreCase = True
         .MultiLine = True
         .Pattern = ",([^\_]*)_"
     End With
      
     Set colMatches = objRegExp.Execute(RetStr)
          
     For Each objMatch In colMatches
         val2replace = objMatch.SubMatches(0) & "_"
         RetStr = Replace(RetStr, val2replace, "")
     Next
     RetStr = Replace(Replace(RetStr, ",", "", 1, 1), ",", ", ")
          
     ОСТАВИТЬТОЛЬКОДАТЫ = RetStr
End Function

Function f(s)
     Dim r As Object
     If r Is Nothing Then Set r = CreateObject("vbscript.regexp"): r.Global = True: r.Pattern = "(,|^).*?от "
     f = Mid(r.Replace(s, ", "), 3)
End Function