Вы можете контактировать и использовать Integer.TryParse
для правильного ввода.
Dim value As Integer
Do
Console.Write("Would you be so kind to enter an integer: ")
Loop Until Integer.TryParse(Console.ReadLine(), value)
Вы можете, конечно, усовершенствовать это, уточните его еще немного. Пример: показать ошибку, если это неправильное значение и т.д. Пример кода:
Console.Write("Would you be so kind to enter an integer: ")
Dim value As Integer
While Not Integer.TryParse(Console.ReadLine(), value)
Console.WriteLine("ERROR! Invalid integer.")
Console.Write("Would you be so kind to enter an integer: ")
End While
И так вы идете (вы можете добавить максимальное количество, остановить выполнение, что вы чувствуете, как).