Как вставить пробел перед заглавными буквами

Dim strString, strPattern, strReplace, strResult
Dim oRegExp
 
strString = "DangerRanger OrnaNent.txt" 
strPattern = "([A-Z])"
strReplace = " $1"
 
Set oRegExp = New RegExp
oRegExp.Pattern = strPattern
 
strResult = oRegExp.Replace(strString, strReplace)
If strResult = strString Then
   MsgBox "No replacements were made"
Else
   MsgBox strResult
End If

Dim strString, strPattern, strReplace, strResult
Dim oRegExp
 
strString = "DangerRanger OrnaNent.txt" 
strPattern = "(\S)([A-Z])" 'непробел перед заглавной буквой. Обеспечивает также неначало строки. 
strReplace = "$1 $2"
 
Set oRegExp = New RegExp
oRegExp.Global = True ' не останавливаться после первой замены
oRegExp.Pattern = strPattern
 
strResult = oRegExp.Replace(strString, strReplace)
If strResult = strString Then
   MsgBox "No replacements were made"
Else
   MsgBox StrString & vbCRLF & strResult
End If

Function AddSpaceUpperCase(stringValue)
    With New RegExp 
        .Pattern = "([a-z])([A-Z])"
        .IgnoreCase = False
        .Global = True
         AddSpaceUpperCase = .Replace(stringValue, "$1 $2")
    End With
End Function