1 2 3 4 5 6 7 8 9 10 11 12 13 | Public Sub Main Dim src as String Dim res as String src = InputBox("Введите строку") if(StrPtr(src) = 0) Then Exit Sub Dim i as Integer For i = 1 to Len(src) Dim c as String c = Mid(src, i, 1) if(c = "*") Then res = res + "-" Else res = res + c Next i MsgBox(res)End Sub |