Dim sText() as String
Dim i as integer
Private Sub Boton1_Click()
If Text1.Text = "" Then
Msgbox "Complete algo"
Exit Sub
End if
sText = Split(Text1.Text, vbCrLf)
Timer1.Interval = 1000
Timer1.Enabled = true
Text1.Enabled = false
i = 0
End Sub
Private Sub Button2_Click()
Timer1.Enabled = false
Text1.Enabled = true
End Sub
Private Sub Timer1_Tick()
Label1.Text = "Linea actual: " & sText(i)
i = i + 1
If i = UBound(sText) Then i = 0
End Sub
Lo hice todo al vuelo, si no funciona, te lo arreglas, la lógica esta ahi. Divides linea por linea (lo puedes hacer por array como hice yo, o buscando las posiciones de las lineas con InStr y Mid) y lo usas para lo que tengas que usar. El timer esta puesto cada segundo
Espero que te sirva