I did a search and found a previous thread from March, 2009 which included this UDF to fix CamelCase strings:
Function FixSpacing(r As String) As String
.Pattern = "([a-z])([A-Z])"
.Global = True
FixSpacing = .Replace(r, "$1 $2")