не работает код маска телефона

[DMITRIY_78]

Ребята Здравствуйте! не вижу сильного изменения написания кода в VBA - работает и VB6 - не работает на ваш суд представляю код маска ввода телефона:
почему в виде картинки? да потому что с коментами засада в крокозыках все, а хотелось что бы вы представления имели. весь код на фото и то что получается что подскажите?

[Алексей1153]

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

коментами засада в крокозыках все

во время копирования в буфер обмена включи русскую раскладку, и всё получится.

Почему не используешь знаки препинания ? У тебя и код такой же ?

[DMITRIY_78]

Sub маскателефона()
    With Form1.Text1
        Select Case Len(.Text)
            Case 1
            'После ввода первого знака добавляем перед ним код страны и скобку
            .Text = "+7(" & .Text
            Case 6
            'После ввода шестого знака добавляем в конце скобку
            .Text = .Text & ")"
            Case 10, 13
            'После ввода десятого и тринадцатого знака добавляем в конце дефис
            .Text = .Text & "-"
            Case 17
            'Удаляем семнадцатый знак сразу после его ввода
            .Text = Left(.Text, 16)
        End Select
    End With
End Sub