Private Function FileToB64(FileIn As String, Fileout As String) As Boolean
 
        Try
            IO.File.Delete(Fileout)
            IO.File.WriteAllText(Fileout, 
            Convert.ToBase64String(IO.File.ReadAllBytes(FileIn)), _
              System.Text.Encoding.UTF8)
            Return True
        Catch ex As Exception
            Return False
        End Try
 
    End Function
 
 
 
    Private Function FileFromB64(FileIn As String, Fileout As String) As Boolean
 
        Try
            IO.File.Delete(Fileout)
            IO.File.WriteAllBytes(Fileout, 
            Convert.FromBase64String(IO.File.ReadAllText(FileIn, _
              System.Text.Encoding.UTF8)))
            Return True
        Catch
            Return False
        End Try
 
    End Function