[tukyunaaya]

Option Explicit
Dim i As Integer
Dim sTextInc As String

Private Sub Form_Load()
sTextInc = LblInc.Caption
End Sub

Private Sub TmrInc_Timer() 'Increments text in LblInc
i = i + 1
If i > Len(sTextInc) Then
i = 0
TmrInc.Interval = 1000
Else
LblInc.Caption = Left(sTextInc, i)
TmrInc.Interval = 100
End If
End Sub