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