Leer hasta alcanzar un múltiplo de 5

[Michelc]

Espero les sirva!

Module Ejercicio21
Sub main()
Dim index, numero, contador As Integer
index = 1
Do While index <= 100
Console.WriteLine("Ingrese #: " & index)
numero = Console.ReadLine()
If numero Mod 5 = 0 Then
'Cuando es múltiplo de 5, cancela el buqle repitivo "Exit Do"
Exit Do
End If
contador += 1
index += 1
Loop
Console.WriteLine("La cantidad de números ingresados, sin considerar el multiplo de 5, fue: " & contador)
Console.ReadLine()
End Sub
End Module