Private Lst$(), DeinText$
 
Private Sub Form_Load()
 
  DeinText = "Dies ist" & vbCr & "ein" & vbCr & "Test."
  Lst = Split(Replace(DeinText, vbLf, ""), vbCr)
  Call Timer1_Timer
  Timer1.Interval = 800
  Timer1.Enabled = True
 
End Sub
 
Private Sub Timer1_Timer()
 
  Static Z1&
  Me.Caption = Lst(Z1)
  Z1 = (Z1 + 1) Mod (UBound(Lst) + 1)
 
End Sub

Gruss,

Zardoz