Agar Textbox hanya angka

Private Sub txt_tglTrx_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") _
   Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyReturn) Then
    Beep
    KeyAscii = 0

End If

End Sub