UserForm TextBox Изменение шрифта (Itali c обратно по умолчанию)

Question

У меня есть текст, который отображается в текстовом поле, которое появляется при запуске форм и исчезает, когда пользователь вводит текстовое поле для ввода некоторого ... текста. Ну, проблема в том, что у меня установлено Itali c, но когда я его выключаю (False), оно не меняется. Вот код:

Private Userform_Initialize

    'Text in italic: "Legajo"
    If TextBox5.Text = "" Then
    TextBox5.Font.Italic = True
    TextBox5.ForeColor = cDimColor
    TextBox5.Text = "Legajo"
    End If

Private Sub TextBox5_Enter()

Dim cStdColor As Long
cStdColor = &H80000008

 If TextBox5 = "Legajo" Then

 TextBox5.Font.Italic = False 'Does not Work
 TextBox5.ForeColor = cStdColor
 TextBox5 = ""

End If
End Sub

Answer 1

Использовать событие Keyup.

Private Sub TextBox5_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim cStdColor As Long
    cStdColor = &H80000008

    If TextBox5 = "Legajo" Then

        TextBox5.Font.Italic = False 'Does not Work
    Else
        TextBox5.Font.Italic = True
    End If
     TextBox5.ForeColor = cStdColor
End Sub