Eu sou bastante novo no VB.net (autodidata) e estava pensando se alguém por aí poderia me ajudar com algum código. Não estou tentando fazer nada muito complicado, basta ter umTextBox que aceita um valor numérico de 1 a 10. Não quero que ele aceite uma sequência ou qualquer número acima de 10. Se alguém digitar uma palavra ou caractere, uma mensagem de erro será exibida, solicitando que ele digite um número válido. Isto é o que eu tenho; obviamente não é ótimo, pois estou tendo problemas. Mais uma vez obrigado a quem puder ajudar.

 If TxtBox.Text > 10 Then
        MessageBox.Show("Please Enter a Number from 1 to 10")
        TxtBox.Focus()
    ElseIf TxtBox.Text < 10 Then
        MessageBox.Show("Thank You, your rating was " & TxtBox.Text)
        Total = Total + 1
    ElseIf IsNumeric(TxtBox.Text) Then
        MessageBox.Show("Thank you, your rating was " & ValueTxtBox.Text)
    End If

    ValueTxtBox.Clear()
    ValueTxtBox.Focus()