I found a way to accomplish what I needed.
FileOpen(5, "C:\Temp\TempImg.pcl", OpenMode.Output)
Do Until EOF(fileNum)
sString1 = LineInput(fileNum)
position = InStr(sString1, "INDEXX:")
If position > 0 Then
sString = sString1
sString1 = ""
End If
Print(5, sString1 & vbCrLf)
Loop
FileClose(5)
FileClose(fileNum)
imageFile = My.Computer.FileSystem.ReadAllBytes"C:\Temp\TempImg.pcl")
My.Computer.FileSystem.WriteAllBytes(TempDir + sFileName, imageFile, False)