Option Explicit

Private Sub txt_Коды_Exit(ByVal Cancel As MSForms.ReturnBoolean)

    If Enter Then
        Cancel = True
        Enter = False
    End If

End Sub

Private Sub txt_Key_Change()

    If Smb = "" And Lng < Len(Me.txt_Key.Value) And Me.txt_Key.Value <> Code Then
        Smb = Right(Me.txt_Key.Value, 1)
        Me.txt_ASCII.Text = Asc(Smb)
    End If
    Me.txt_Key.Value = Code
    Lng = Len(Me.txt_Key.Value)

End Sub

Private Sub txt_Key_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

    Code = KeyCode
    Smb = ""
    Me.txt_ASCII.Text = ""
    Select Case KeyCode
        Case 18
            KeyCode = 0
            Me.txt_ASCII.Text = ""
            Me.txt_Key.Value = "18"
        Case 121
            KeyCode = 0
            Me.txt_ASCII.Text = ""
            Me.txt_Key.Value = "121"
    End Select
    Call txt_Key_Change

End Sub