Validar números de un TextField en Visual Basic 6

Código básico para validar números de un TextField en Visual Basic 6

Private Sub TextBox1_Change()

  Dim textval As String
  Dim numval As String

  
  txtValor = TextBox1.Text
  If IsNumeric(txtValor) Then
    numval = txtValor
  Else
    TextBox1.Text = CStr(numval)
  End If

 
End Sub