Como ussa while

[Fallen_4ngel]

Boa noite fiz essa aplicação e gostaria assim de quando se escolhe uma das opções  ao termina ele perguntasse de novo qual opção a pessoa queria menos a 3 que é a de sai.
alguém poderia da uma dica

O código :

Module Module1
    Sub Main()
        Dim nome, endereco, telefone, cpf As String
        Console.WriteLine("Seja bem Vindo....")
        Console.WriteLine("Para continuar escolha uma opção....")
        Console.WriteLine("1 - Para novo cadastro")
        Console.WriteLine("2 - Para Mensalidade")
        Console.WriteLine("3 - Para Sair")
        Dim opcao As Integer = Console.ReadLine()
        If opcao = 1 Then

            Console.WriteLine("Digite seu nome:")
            nome = Console.ReadLine()
            Console.Write("Digite seu cpf:")
            cpf = Console.ReadLine()
            Console.Write("Digite seu endereço:")
            endereco = Console.ReadLine()
            Console.Write("Digite seu telefone:")
            telefone = Console.ReadLine()

            Console.WriteLine("Taxa de inscrição para pagar R$ 15,00 (quinze reais")
            Console.WriteLine("Usuario Cadastrado!")
            Console.ReadKey()

        ElseIf opcao = 2 Then
            Console.WriteLine("Digite seu nome:")
            nome = Console.ReadLine()
            Console.Write("Digite seu cpf:")
            cpf = Console.ReadLine()
            Console.Write("O pagamento da mensalidade é de R$100.00 (cem reais) " + nome)
            Console.ReadKey()

            ElseIf opcao = 3 Then
            Console.WriteLine("Xau xau xau xau")
            Console.ReadKey()
        End If
    End Sub

End Module