String*1 is a fixed length string with length 1 but as you want to read a file i think you should use a byte array instead:
Dim chas as byte

To read a file use:

ff=freefile
Open file for binary as ff
Get#ff,,char
close ff