You need to set the string to the length of the input binary file before doing the get, so the get knows how much you want.

dim lngInputLen as long
lngInputLen = LOF(FN)
TStr = String(lngInput Len, " ")
Get FN, , TStr