I want to be able to write juste numbers in a textbox

[gibea00]

Hi

In one of my textbox, the only thing i want that the user can write is a number. Anything else have to be bloc. I thought to return bakcspace if the user write a letter or something else, but i don't know how. Is anybody knows it?

here's my code

Dim intKeyAscii As Int32
intKeyAscii = Asc(e.KeyChar)

txtDateComptable.Text = ""
txtNoReference.Text = ""

If intKeyAscii = 13 Then
Me.btnTrouver_Click(Me, e)
ElseIf (intKeyAscii < 48 Or intKeyAscii > 57) then
'return backspace
End If

Thanks