Visual Basic - Como parar un ciclo while, Do whilw , etc Urgente

parece que tengo un leve problema en este codigo
cr1 = Mid(txtapellido_pat_al, 1, 1)
Do While (cr1 = "a" Or cr1 = "e" Or cr1 = "i" Or cr1 = "o" Or cr1 = "u" Or cr1 = "A" Or cr1 = "E" Or cr1 = "I" Or cr1 = "O" Or cr1 = "U")
cr1 = Mid(txtapellido_pat_al, cont, 1)
cont = cont + 1
Loop
va = cr1
quiero hacer que el ciclo se detenga y meter el resultado en una variable pero que no siga leyendo los demas caracteres.. que se salga enese lugar donde se cumpla la condicion... que necesito poner

cr1 = Mid(txtapellido_pat_al, 1, 1)
Do While (cr1 = "a" Or cr1 = "e" Or cr1 = "i" Or cr1 = "o" Or cr1 = "u" Or cr1 = "A" Or cr1 = "E" Or cr1 = "I" Or cr1 = "O" Or cr1 = "U")
cr1 = Mid(txtapellido_pat_al, cont, 1)
if cr1 = a la condicion then
va = cr1
exit do **** sale del ciclo
end if
cont = cont + 1
Loop