vb 中怎样按行逐句读入TXT文件

在txt文本中有下列文字及格式
X:23,Y:65.2,Z:95
X:52,Y:85.2,Z:45
X:63,Y:86.9,Z:786
X:78,Y:57,Z:73
X:23,Y:65.2,Z:95
...
要求在程序中有三个变量 a，b，c
每间隔1秒钟，逐行把txt中的X,Y,Z的值赋给对应的a,b,c

请大家多多指教。
若解决，还可另赠送积分！！

画上一个timer控件，就可以看见效果了

Option Explicit

Dim a As Single
Dim b As Single
Dim c As Single

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
Open "D:\abc.txt" For Input As #1
End Sub

Private Sub Timer1_Timer()
Dim strLine As String
Dim abc() As String
Dim i As Integer

Line Input #1, strLine
abc = Split(strLine, ",")

If UBound(abc) = 2 Then
For i = 0 To 2
Select Case UCase(Left(abc(i), 2))
Case "X:"
a = Val(Right(abc(i), Len(abc(i)) - 2))
Case "Y:"
b = Val(Right(abc(i), Len(abc(i)) - 2))
Case "Z:"
c = Val(Right(abc(i), Len(abc(i)) - 2))
End Select
Next i

Print "a="; a, "b="; b, "c="; c
End If

If EOF(1) Then