参考
Dim str = "1234567890"str = System.Text.RegularExpressions.Regex.Replace(str, "(\d{4}(?!$))", "$1 ")msgbox(str)