[SBJoker]

на основе какой информации текст должен меняться? Просто по порядку?

Присвой в редакторе форм свойству Tag кнопки значение 0 (ноль).

Private Sub Command1_Click()
    dim k as integer
    
    k = CInt(Command1.Tag)
    k = k + 1
    Command1.Tag = k

    select case k
    case 1
        Label1.Caption = "First text"
    case 2
        Label1.Caption = "Second text"
    case else
        Label1.Caption = "Last text"
    end select
End Sub