Function fnChoice$(a$, b$)
    Dim s1$, s2$, s3$
    s1 = RegExPRepl(a, "([\S\s]*?)(, )([A-Z]{2})([\S\s]*)", "$3")
    s2 = RegExPRepl(b, "([\S\s]*?)(, )([A-Z]{2})([\S\s]*)", "$3")
    s3 = RegExPRepl(b, "([\S\s]*)(, )([A-Z]{2})([\S\s]*)", "$3")
    fnChoice = s1 & " to " & s2 & " to " & s3
End Function

Function RegExPRepl(sString$, sFind$, sReplace$, Optional bGlobal As Boolean = True, _
Optional bMultiLine As Boolean = True) As String
   Static RegEx As RegExp
   If RegEx Is Nothing Then Set RegEx = New RegExp
   With RegEx
      .Global = bGlobal
      .MultiLine = bMultiLine
      .IgnoreCase = False
      .Pattern = sFind
   End With
   RegExPRepl = RegEx.Replace(sString, sReplace)
End Function