Option Explicit
 
Rem Añade un TextBox, un CommandButton y un Timer
 
Private sTextBoxLines$()
Private lLimit&
Private lLine&
 
Private Sub Form_Load()
    With Timer1
        .Enabled = False
        .Interval = 1000
    End With
 
    Command1.Caption = "Prueba"
 
    Text1.Text = "Que" & vbCrLf & _
                 "vivan" & vbCrLf & _
                 "las" & vbCrLf & _
                 "ranas"
End Sub
 
Public Function LoadLines(ByVal sText$) As Boolean
    Erase sTextBoxLines$() : lLine& = 0
    sTextBoxLines$() = Split(sText$, vbCrLf)
    lLimit& = UBound(sTextBoxLines$())
    LoadLines = CBool(lLimit&)
End Function
 
Private Sub Timer1_Timer()
    MsgBox sTextBoxLines$(lLine&)
    lLine& = lLine& + 1
    If lLine& > lLimit& Then
        Timer1.Enabled = False
        End
    End If
End Sub
 
Private Sub Command1_Click()
    If LoadLines(Text1.Text) Then
        Timer1.Enabled = True
    End If
End Sub