Dim strText,sapi strText = InputBox("Введите ваш текст","123") strText = Replace(strText, ".", " в штанах ") strText = Replace(strText, ",", " без штанов ") MsgBox strText