[Somente números na textbox]

Boa tarde galerinha!

É o seguinte estou utilizando um código na textbox neste formato:

Private Sub txt_id_AfterUpdate()

Dim Linha As Long

Dim id As Long 'mudar para string se o id tiver letras ou símbolos

If Val(Me.txt_id) = 0 Then

Exit Sub

End If

Plan1.Activate

Linha = 2

id = txt_id

Do Until Cells(Linha, 1) = "" 'vai executar o laço até encontrar uma célula vazia

'Condição para localizar o registro

If Cells(Linha, 1) = id Then 'se encontrar o valor registro na célula pesquisada

opt_funcionario = Cells(Linha, 2)

opt_exfuncionario = Cells(Linha, 3)

opt_ativo = Cells(Linha, 4)

opt_inativo = Cells(Linha, 5)

txt_razao = Cells(Linha, 6)

txt_endereço1 = Cells(Linha, 7)

txt_bairro01 = Cells(Linha, 8)

txt_complemento = Cells(Linha, 9)

cmb_cidade01 = Cells(Linha, 10)

txt_cep01 = Cells(Linha, 11)

cmb_uf01 = Cells(Linha, 12)

Exit Sub 'interrompe o código quando encontrar o código e preencher os dados

End If

Linha = Linha + 1

Loop

End Sub

Eu preciso que esse campo aceite somente números sendo que eu não posso mudar o private pois o id digitado nessa textbox ao pressionar enter ele irá busca os dados do usuário na planilha e preencher os campos corretos.

Alguém pode me ajudar?