VB 提取文本内容

我想提取2.TXT文本内的第二行的,第15个字符串后的内容!~

请问怎么写??

VB

Open 路径+'2.TXT' For Input As #1 ' 打开输入文件。
Input #1, hang1 ' 将数据读入变量。
Input #1, hang2

Close #1 ' 关闭文件。

‘利用上面的语法就可以得到第二行的文本内容，存放在字符变量hang2

’接着区字符串第15个字之后

dim strLen as string

if len(hang2)>15

strLen=right(hang2,len(hang2)-15)

else

msgbox "字符数<15字"

end if

Private Sub Command1_Click() Dim filep As String filep = "2.txt" temphh = 0

Open filep For Input As #1 Do While Not EOF(1) temphh = temphh + 1

Line Input #1, tempnr

If temphh = 2 Then Exit Do Loop

msgbox mid(tempnr,16)

End Sub