Задача на VBA.....

[Ingez]

Ребята, помогите пожалуйста сделать программу на VBA:

В тексте убрать лишние пробелы между словами, оставив по одному.(текст пользователь вводит сам

Не знаю даже как сделать......
Сможете помочь буду очень благодарен!

[gaw4]

t1 = InputBox("text", , "123     456        455")
t = t1
Do While InStr(1, t, "  ") > 0
t = Replace(t, "  ", " ")
Loop
MsgBox t1 & vbNewLine & t

[Ingez]

Сообщение от gaw4

t1 = InputBox("text", , "123     456        455")
t = t1
Do While InStr(1, t, "  ") > 0
t = Replace(t, "  ", " ")
Loop
MsgBox t1 & vbNewLine & t

спасибо Вам большое
Можно как то по другому вывести?(с помощью строковых ф-ий например?)

MsgBox t1 & vbNewLine & t

просто мы не проходили vbNewLine...и меня сразу спалят...

[gaw4]

t = InputBox("text", , "123     456        455")
Do While InStr(1, t, "  ") > 0
t = Replace(t, "  ", " ")
Loop
MsgBox t

vbNewLine это переход на новую строку , аналогично vbCrLf

[Ingez]

О извините, это Replace тоже не заметил.
Его можно как то по другому написать?( тоже не проходили)

gaw4, никак чтоли по-другому?