首先纠正一下，Space不是返回空格的长度，而是生成一个指定长度的由空格组成的字符串！
fileContent = Space(LOF(fileNum))这个其实是在内存中生成一个与文件长度一样的缓冲区，然后下面的Get #fileNum, , fileContent就把整个文件内容读到这个缓冲区中，也就是说最终读取文件的多少是由fileContent这个变量的实际长度决定的！所以fileContent = Space(LOF(fileNum))这个是非常必要的，不是可有可无的！！！
其实换个思路程序可以大大简化：
Private Sub Command1_Click()
Dim fileNum As Integer
Dim fileInfo() As String
fileNum = FreeFile
Open "C:\form.txt" For Binary As #fileNum
fileInfo = Split(Input(LOF(fileNum), #fileNum), vbCrLf)
Close fileNum
Text1.Text = fileInfo(0)
End Sub
