Private Sub cmdInfo_Click()
     frmInfo.Show
End sub

Dim A(0 To 4) As String
A(0) = "Das"
A(1)="ist"
A(2)="ein"
A(3)="richtiger"
A(4)="Test"
 
Private Sub cmdGreat_Click()
     Static n
     Text1.Text = A(n)
     n = n + 1
     If n > 4 Then n = 0
End Sub