[Iska]

При нажатии кнопки на "Label3" выводится "Текст 1", даже если время таймера равно 100. »

Естественно. Вы ведь в процедуре безусловно обнуляете «tTime» и так же безусловно задаёте надпись в «Label3».

Command1 - Кнопка. Что она делает написано в коде »

Для чего она нужна — совершенно не понятно.

Код:

Option Explicit

Dim lngTick As Long
Dim arrCaptions() As Variant

Private Sub Form_Load()
    lngTick = 0
    
    With Me.Timer1
        .Interval = 1000
        .Enabled = True
    End With
    
    arrCaptions = Array("AAAA", "SSSS", "DDDD", "FFFF")
    
    Me.Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
    If lngTick > UBound(arrCaptions) Then
        lngTick = 0
    End If
    
    Me.Label1.Caption = arrCaptions(lngTick)
    lngTick = lngTick + 1
End Sub

[Dark_Timur]

Приспособил этот код под себя. Несмотря на то, что я искал немного другое, этот код мне очень пригодился. Большое спасибо! Тему закрываю.