解释一段VB代码

请在回答时将注释加在每段代码的后面（用'号），一定要说明每段代码的“具体”含义。谢谢了。

Private Sub Command1_Click()
Open "c:\xx.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, s
m = InStr(s, "x='")
If m <> 0 Then r = Mid(s, m + 3, Len(s) - m - 4)
Loop
Close #1
MsgBox r
End Sub

Private Sub Command1_Click()
Open "c:\xx.txt" For Input As #1 '打开"c:\xx.txt"打开这个文件方 式为读入，就是从文件中读取数据
Do While Not EOF(1) '不到文件尾就执行循环体内的语句
Line Input #1, s '从文件中读出一个记录即一行数据，存到S变量中
m = InStr(s, "x='") 调用InStr函数把返回值赋给m
If m <> 0 Then r = Mid(s, m + 3, Len(s) - m - 4)
'如果m不等于0，r就等于
'mid函数的作用是取指定长度的字符，现在是从s字符串中的第m+3个
'字符处向后取出len(s)-m-4个长度的字符
'len函数的作用是取字符串的长度
Loop 循环
Close #1 关闭打开的文件
MsgBox r 用提示框显示出r的值
End Sub

Private Sub Command1_Click()
'以读取数据的方式打开c:\xx.txt(顺序读取文件的一种)
Open "c:\xx.txt" For Input As #1
'一个循环,判断是否读取了最后一行
Do While Not EOF(1)
'输出当前读取到的行,并赋值给s
Line Input #1, s
'判断本行是不是有x=这个字符
m = InStr(s, "x='")
'如果不为0就是存在,即出等号后的值
If m <> 0 Then r = Mid(s, m + 3, Len(s) - m - 4)
Loop
Close #1
弹出值
MsgBox r