' Das kommt in den Deklarationsteil deiner Form
Private Strings() As String 'String Array
Private StringCount As Long 'Anzahl der Strings
Private StringNow As Long 'Aktueller String
 
Private Sub Form_Load()
' Wir nehmen 3 Wörter...
StringCount = 3
Redim Strings(StringCount)
 
StringNow=0
Strings(0) = "A"
Strings(1) = "B"
....usw...
End Sub
 
'Das kommt in deinen Button:
Private Sub Commandbutton_Click()
Text1.Text = Strings(StringNow)
 
StringNow = StringNow + 1
If StringNow > StringCount Then StringNow = 0
End Sub