Научная работа: Создание программного продукта на языке программирования Visual Basic for Applications

s2 = s2 + Mid(s1, i, 1)

End If

Next i

Selection.Text = s1 + s3

End Sub