開啟Unicode文字檔？(編號：5756)

程式碼如下：
Open "c:\temp\sample1.txt" For Binary As #1
str = InputB$(2, 1)
str = InputB$(LOF(1), 1)
使用此方法會將文字檔中的所有字元一次讀入
請問是否有方法能一次讀入一行？