преобразование файла в вывод функции base64

Public Function ConvertFileToBase64(ByVal fileName As String) As String

    Dim ReturnValue As String = ""

    If My.Computer.FileSystem.FileExists(fileName) Then
        Using BinaryFile As FileStream = New FileStream(fileName, FileMode.Open)
            Dim BinRead As BinaryReader = New BinaryReader(BinaryFile)
            Dim BinBytes As Byte() = BinRead.ReadBytes(CInt(BinaryFile.Length))
            ReturnValue = Convert.ToBase64String(BinBytes)
            BinaryFile.Close()
        End Using
    End If
    Return ReturnValue
End Function

Вопросы, которые я хочу задать:

1. Я хочу, чтобы на выходе я хотел преобразовать текстовый файл "C:\Users\user\Desktop\rats\test\test.txt" в base64
2. Мне не удалось получить какие-либо выходные данные, когда я преобразовал "test.txt" в base64
3. Я использую filename="textbox1.text" для добавления моего "test.txt"