المساعدة في الكتابة في ملف Bin

FileOpen(2, saveFD.FileName, OpenMode.Binary)
dim oo as Integer  = 1
keyincell = "FFFF"
						For i = 1 To 2
   keyincellok = keyincellok & Chr(Convert.ToInt16((Mid(keyincell, oo, 2),16)))
					oo = oo + 2
						Next
						FilePut(2, keyincellok, t)