Codificación base 64

Dim bytefile As Byte() = File.ReadAllBytes(ruta_archivo)
Dim file As String  = Convert.ToBase64String(bytefile)