Sub btnfd_MouseClicked (EventData As MouseEvent)
Dim f As String = fc.ShowOpen(MainForm)
If f <> "" Then
TextArea1.Text = File.ReadString(f, "")
End If
For Each row() As Object In result.Rows
Dim out As OutputStream = File.OpenInput("C:\AB4JProjects","caption.jpg")
Dim In As InputStream
Dim Buffer() As Byte
Buffer = row(0) ' gives error here, says that can not convert a string to byte array
In.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
File.Copy2(In, out)
out.Close
End Sub