Un novato con sentencias if then else

[legomolina]

Hola, acabo de empezar con esto de visual basic pero visual studio express 2010 me marca un error con if then else, si alguien me pudiese ayudar, se lo agradeceria.

Código vb:

Module primo
    Dim numero As Integer
    Private Function resto(ByVal num As Integer) As Integer
        Dim resultado, i As Integer
        i = 1
        resultado = 1
 
        Do
            If num Mod i = 0 Then resultado = 0
            Elseif resto(numero) Then
                resultado = 1
            End if
            End if
        Loop Until i = num
 
        resto = resultado
    End Function
 
 
    Sub main()
        System.Console.WriteLine("Escribe un numero cualquiera sin decimales y te dira si es primo o no")
        numero = Console.ReadLine()
        If resto(numero) = 0 Then System.Console.WriteLine("El numero {0} no es primo", numero)
        else If resto(numero) = 1 Then System.Console.WriteLine("El numero {0} es primo", numero)
        End If
 
        End If
    End Sub
End Module
 

Gracias por la ayuda

PD: es un ejercicio del tuto que sigo para aprender