请教：

一个Form在载入时，它的Text1只读取文本文件的第二行的后4个文字，这样的程式要怎样写？
（我只会写一个Text1在读取文本文件时从头读到尾的）

我是个菜鸟，期待你的关注，等候你的回复！

text1里有个MaxLangth属性是设置允许输入文本的长度，MultiLine是设置是否可以接受多行。MultiLine值设成True表示可以多行，然后用Caption属性实验一行输入的字符长度。MaxLangth=一行输入的字符长度＋4。Caption是text1里的内容，最后把Caption里的值删除为空表示没有text1里没有任何东西而不是空格。

不好意思，我没有说清楚。

我现在再解释一下：我说的文本文件指的是*.txt。

可以把代码传上来吗？

Private Sub Command1_Click()
Dim TextLine, llRow As Long
llRow = 0
Open "c:\123.txt" For Input As #1 ' 打开文件。
Do While Not EOF(1) ' 循环至文件尾。
llRow = llRow + 1
Line Input #1, TextLine ' 读入一行数据并将其赋予某变量。
If llRow = 2 Then
text1 = Right(Trim(TextLine), 4)
Exit Do
End If
Loop
Close #1 ' 关闭文件。
End Sub