score:2

Accepted answer

In the case of three or more consecutive uppercase letters, the matches do overlap. The remedy is to apply the pattern twice in a row:

With objRegex
    .Global = True
    .Pattern = "([A-Z])([A-Z])"
    SplitCaps = .Replace(strIn, "$1 $2")
    SplitCaps = .Replace(SplitCaps, "$1 $2")
End With

Related Query

More Query from same tag