Validar que Textbox admita solo números

Private Sub TextBox1_KeyPress(ByVal sender As Object, _
                          ByVal e As System.Windows.Forms.KeyPressEventArgs) _
                          Handles TextBox1.KeyPress
If InStr(1, "0123456789" & Chr(8), e.KeyChar) = 0 Then
    e.KeyChar = ""
End If
End Sub

Gracias a un comentario que recibí en mi otro blog, puedo rescatar sus palabras.

Existe otra forma de hacerlo y seria algo así:

If Char.IsNumber(e.KeyChar)  Then
            e.Handled = False
Else
            e.Handled = True
End If