Option Explicit

Const LABEL_WIDTH = 15 'characters
Dim j As Integer
Dim s As String
Private Sub Form_Load()
    s = Space$(LABEL_WIDTH) & "Have a great day" & Space$(LABEL_WIDTH)
    j = 1
    Timer1.Interval = 100
    Timer1.Enabled = True
    Me.Show
End Sub

Private Sub Timer1_Timer()

    Label1.Caption = Mid(s, j, LABEL_WIDTH)
    j = j + 1
    If j = Len(s) - LABEL_WIDTH - 1 Then j = 1
End Sub