Pasar código de pseint a visual basic

Algoritmo sin_titulo

Definir telf, tiempo, precio, min_adi Como Entero

Definir btn Como Carácter

Repetir

Escribir Sin Saltar "Digite el número telefónico: "

Leer telf

Escribir Sin Saltar "Digite el tiempo de duración en minutos: "

Leer tiempo

Escribir "Si desea borrar, digite [B]"

Escribir "Si desea salir, digite [S]"

Leer btn

Hasta Que btn=="S"

Si tiempo<=3 Entonces

Precio<-300

SiNo

min_adi<-tiempo-3

precio<-min_adi*150

FinSi

Escribir "Minutos adicionales: ", min_adi

Escribir "Total a pagar : ", precio," Bs"

FinAlgoritmo