hola amigos, quisiera saber si el codigo que he colocado estaria bien resuelto para el ejercicio que sigue:

1.- Se ingresa 100 numeros.Cada vez que se ingrese un nuevo numero muestre la suma de sus digitos y al termino de los ingresos muestre los siguientes resultados:
- Cuantos numeros tuvieron 6 ó 9 digitos
- Cuantos numeros fueron pares de 4 ó 5 digitos y su ultimo digito fue
mayor a 5
- Cuantos numeros fueron mayores a 100 pero menores a 200 y a su
vez impar
- Cuantos numeros fueron mayores a 5 y a su vez fueron numeros
primos.
- Cuantos numeros fueron pares negativos en el rango de -200 a
-8.
----------------------------------------------------------------
Option Explicit
Dim x As Integer
Dim n As Double
Dim contaA As Integer
Dim contaB As Integer
Dim contaC As Integer
Dim contaD As Integer
Dim contaE As Integer


Private Sub Command1_Click()
x = 0
contaA = 0
contaB = 0

Do
x = x + 1

n = Val(InputBox("Ingrese un numero: "))

Select Case (n)
Case 100000 To 999999: contaA = contaA + 1
Case 100000000 To 999999999: contaA = contaA + 1
End Select

If (n Mod 2 = 0) Then
If (n >= 1000 And n <= 9999) Or (n >= 10000 And n <= 99999) Then
If (n Mod 10 > 5) Then
contaB = contaB + 1
End If
End If
End If

If (n > 100 And n < 199) Then
If (n Mod 2 <> 0) Then
contaC = contaC + 1
End If
End If

If (n > 5) And (n Mod 2 <> 0) Then
contaD = contaD + 1
End If

If (n Mod 2 = 0) Then
If (n >= -200 And n <= -8) Then
contaE = contaE + 1
End If
End If


Loop While (x <> 0)


End Sub