Private beschr() As String = {"Test", "Nochmal", "drei"}
    Private i As Integer = 0
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Label1.Text = ("Test")
        If Label1.Text = ("Test") Then
            Button1.Text = beschr(i)
            i += 1
        End If
    End Sub

Wer viel fragt bekommt viele Antworten.
Wer viele Fragen gestellt hat, kann viele andere geben.