Transformar archivo a base64

Dim bytefile As Byte() = Encoding.UTF8.GetBytes(File.ReadAllText(rutaDte))
fileupload = Convert.ToBase64String(bytefile)


fuente