Olá, bom dia.

Gostaria de pedir uma ajuda quanto ao vídeo 2 aula 4 do curso VBA: fazendo um cadastro personalizado.

Quando insiro o valor data , mesmo que a coluna de data não esteja formatada no estilo norte-americano, ele é registrado nesse formato. Apenas quando uso número na parte dia maiores que 12 que ele funciona.

Segue uma imagem de quando tentei inserir o valor 01/12/2024.

Não sei onde me perdi. Código:

' Para utilizar as teclas corretamente no código, precisamos nos referir aos códigos ASCII e aos códigos de tecla (KeyCode) disponíveis na tabela do Visual Basic. ' Esses códigos nos ajudam a identificar qual tecla foi pressionada e a realizar as ações apropriadas no nosso formulário.

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

'Verifica as teclas de 1 a 9 no teclado alfanumérico
If KeyCode >= vbKey0 And KeyCode <= vbKey9 Then
    
    'Caso o comprimento da data seja 2 ou 5, adiciona as barras
    If Len(Trim(Me.ActiveControl)) = 2 Or Len(Trim(Me.ActiveControl)) = 5 Then
        Me.ActiveControl = Trim(Me.ActiveControl) & "/"
    End If

'Verifica as teclas de 1 a 9 no teclado numérico
ElseIf KeyCode >= vbKeyNumpad0 And KeyCode <= vbKeyNumpad9 Then
    
    'Caso o comprimento da data seja 2 ou 5, adiciona as barras
    If Len(Trim(Me.ActiveControl)) = 2 Or Len(Trim(Me.ActiveControl)) = 5 Then
        Me.ActiveControl = Trim(Me.ActiveControl) & "/"
    End If

'Deixa pronto o tratamento para a tecla "delete" e libera seu uso
ElseIf KeyCode = vbKeyDelete Then

'Deixa pronto o tratamento para a tecla "backspace" e libera seu uso
ElseIf KeyCode = vbKeyBack Then

'Caso não seja nenhum dos casos acima, cancela a digitação
Else
    KeyCode = vbKeyCancel
End If

End Sub