Code:
    Private Sub Text1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Text1.KeyPress
        If (IsNumeric(e.KeyChar)) = False Then e.KeyChar = vbNullString
    End Sub
Replace Text1 with your textbox.