[решено] Модификация строки.

[admin-nsk]

Здравствуйте помогите написать функцию для изменение строки из вида +79139139696 в +7 913 913 9696.

[Iska]

По какому принципу? Если по позиционному, то можно, например, так:
Option Explicit

Dim strIn
Dim strOut
Dim objRexExp

strIn = "+79139139696"

With WScript.CreateObject("VBScript.RegExp")
.Pattern = "(\+\d)(\d{3})(\d{3})(\d{4})"
strOut = .Replace(strIn, "$1 $2 $3 $4")

WScript.Echo strOut
End With

WScript.Quit 0

[admin-nsk]

Получилось. Спасибо большое за помощь.