Convertir documento a Byte base64

Convertir Doc a Byte()

Public Shared Function convertirDoc_Byte(rutaArchivo As String) As Byte()
        Dim fileBytes = File.ReadAllBytes(rutaArchivo)
        Dim encodedFile = Convert.ToBase64String(fileBytes)

        Dim aa = System.Text.Encoding.Default.GetBytes(encodedFile)
        Return aa
    End Function

Convertir Byte() a Doc
Public Shared Sub convertirByte_doc(archBytes As Byte(),rutaArchivo As String)
        Dim base64String = System.Text.Encoding.Default.GetString(archBytes)
        Dim imageBytes As Byte() = Convert.FromBase64String(base64String)

        File.WriteAllBytes(rutaArchivo, imageBytes)

    End Sub

Saludos