Option Explicit
Private cData As Collection
Private nIndex As Integer
 
Private Sub Command1_Click()
  With cData
    nIndex = nIndex + 1
    If nIndex > .Count Then Exit Sub
 
    Text1.Text = Text1.Text & .Item(nIndex) & " "
  End With
End Sub
 
Private Sub Form_Load()
  ' Text, der in der Textbox angezeigt werden soll
  Set cData = New Collection
 
  cData.Add "Hallo"
  cData.Add "mir"
  cData.Add "geht"
  cData.Add "es"
  cData.Add "gut"
 
  nIndex = 0
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de