Форумы HiProg.com - MS ACCESS, VBA, VB

ник: ars_bs
Sub ins_space()
' âñòàâêà ïðîáåëîâ
Dim x As String
Dim str1 As String
Dim str2 As String
str1 = Space(1)
x = 123456789
str2 = Left(x, 2) & str1 & Mid(x, 3, 2) & str1 & Mid(x, 5)
MsgBox str2 ' преобразут 123456789 в 12 34 56789