Base64Encode questions

I am using a drag and drop to convert pictures into Base64 format in a TextArea but it writes it as a Multi-Line text but I want it written as one line.

This is the code I am using:

[code] Dim t As TextInputStream
Dim s As String

if obj.FolderItemAvailable then

t = obj.FolderItem.OpenAsTextFile
txtImgMainYes(index).Text = EncodeBase64(t.ReadAll)

end if[/code]

“txtImgMainYes” is the TextArea box where the text is stored. I tried a TextField but it just shows the item’s path and not the Base64 encoded contents.

txtImgMainYes(index).Text = EncodeBase64(t.ReadAll, 0)