diff --git a/GUIs.ZooFlow/frmtest.vb b/GUIs.ZooFlow/frmtest.vb
index aaf6586e..ff4b397f 100644
--- a/GUIs.ZooFlow/frmtest.vb
+++ b/GUIs.ZooFlow/frmtest.vb
@@ -40,14 +40,17 @@ Public Class frmtest
     End Sub
 
     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
-        Dim memString As String = "Memory test string !!!"
-        Dim buffer As Byte() = Encoding.UTF8.GetBytes(memString)
+        Using oInputStream As New FileStream(txtIDBFOPath.Text, FileMode.Open)
+            Dim oContents(oInputStream.Length) As Byte
+            oInputStream.Read(oContents, 0, oInputStream.Length)
 
-        ' convert string to stream
-        Using oMemoryStream As New MemoryStream(buffer)
-            Using oFileStream As New FileStream("d:\file.txt", FileMode.Create, FileAccess.Write)
-                oMemoryStream.WriteTo(oFileStream)
+            ' convert string to stream
+            Using oMemoryStream As New MemoryStream(oContents)
+                Using oFileStream As New FileStream("d:\file.txt", FileMode.Create, FileAccess.Write)
+                    oMemoryStream.WriteTo(oFileStream)
+                End Using
             End Using
         End Using
+
     End Sub
 End Class
\ No newline at end of file