VB监控一个TXT，如TXT内容有变化，则将变化了的内容（与上一次不同的那部分内容）输出到TXT1的文本框

帮忙下啊

谢谢
我现在写出了一部分
Private Sub Command1_Click()
Open "d:\1.txt" For Input As #1
Open "d:\3.txt" For Output As #3
Open "d:\2.txt" For Input As #2
Do While Not EOF(2)

If EOF(1) = True Then
Line Input #2, b
Print #3, b
Else
Line Input #1, a
Line Input #2, b
End If

Loop

Close (1)
Close (2)
Close (3)
End Sub

1.text 和 2.text 如果有不同的只是后面的不同如
1.text

a
b
c
d

2.text
a
b
c
d
e