Un novato con sentencias if then else

[legomolina]

Gracias, la segunda solucion me ha valido pero la primera, toquiteando he visto que te lo pone bien si pones todo en una sola linea.

Código vb:

Do
            If num Mod i = 0 Then resultado = 0 Else <---todo en la misma linea
            If resto(numero) Then
                resultado = 1
            End If
        Loop Until i = num
 

La vedad es que sigo sin entenderlo pero si asi funciona, pues lo haremos asi...
De todas formas, muchas gracias.