Помогите решить Visual Basic - VB

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

дано число в диапазоне от 1 до 999 нужно определить "двузначное четное-нечетное " или "трехзначное четное-нечетное" я пробывал так но не катить ... Dim a As Integer = Convert.ToInt32(TextBox1.Text()) Dim dz, ch, tz, nch As String Dim v As String If a / 100 = 0 Then dz = "Двухзначное" End If If a / 100 > 0 Then tz = "трехзначное" End If If a Mod 2 = 0 Then ch = "Четное" end if If a Mod 2 > 0 Then nch = "нечетное" End If v = dz + " " + ch + " " + tz + " " + nch Label1.Text = v.ToString

Решение задачи: «Помогите решить Visual Basic»

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

                            Rem дано число в диапазоне от 1 до 999 нужно определить "двузначное четное-нечетное "
Rem или "трехзначное четное-нечетное" я пробывал так но не катить ..
Sub p1()
Dim n As Integer, s As String
 
    n = InputBox("")
    If n >= 100 Then
        s = "трехзначное"
    ElseIf n >= 10 Then
        s = "двузначное"
    Else
        s = "однозначное "
    End If
    
    If n Mod 2 = 0 Then
        s = s & " четное"
    Else
        s = s & " нечетное"
    End If
    s = s & " число"
    MsgBox (s)
End Sub
                        