Найти количество цифр числа - Visual Basic .NET

Формулировка задачи:

Есть программа, которая выводит количество цифр, если число от 0 до 999, если больше - пишет ошибку. Нужно дополнить программу, чтобы если я не вводил ничего ИЛИ вводил дробное число (то есть вещественное), то тогда мне выдавало сообщение с ошибкой. Помогите, пожалуйста!

Dim vvod As String
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles cmdПуск.Click
        Dim x As String, y As Integer, v As String, w As String
        vvod = InputBox("Введите число от 1 до 999", "Количество цифр", "1", -1, -1)
        x = Val(vvod)
        Select Case x
            Case Is < 10
                y = 1
                v = "одной"
                w = "цифы"
                MsgBox("Ваше число " + vvod + Chr(13) + "состоит из " + v + " " + w, (0 + 64), "Результат")
            Case Is < 100
                y = 2
                v = "двух"
                w = "цифр"
                MsgBox("Ваше число " + vvod + Chr(13) + "состоит из " + v + " " + w, (0 + 64), "Результат")
            Case Is < 1000
                y = 3
                v = "трех"
                w = "цифр"
                MsgBox("Ваше число " + vvod + Chr(13) + "состоит из " + v + " " + w, (0 + 64), "Результат")
            Case Is = False
                MsgBox("АЛО")
            Case Else
                MsgBox("Ошибка ввода!", 16, "Ошибка!")
        End Select
    End Sub
End Class

Решение задачи: «Найти количество цифр числа»

textual
                            Листинг программы 
                        

                              Dim vvod As String
  Private Sub Button1_Click(sender As Object, e As EventArgs) Handles cmdПуск.Click
    vvod = InputBox("Введите число от 1 до 999", "Количество цифр", "1", -1, -1).Trim
    If IsNumeric(vvod) And vvod.Length < 4 And vvod Like New String("#"c, vvod.Length) Then
      MsgBox("Ваше число " + vvod + Chr(13) + "состоит из " + {"одной цифры", "двух цифр", "трёх цифр"}(vvod.Length - 1), (0 + 64), "Результат")
    Else
      MsgBox("Ошибка ввода!", 16, "Ошибка!")
    End If
  End Sub
                        