Visual Basic - AYUDA

HOLA TENGO UNA PEQUEÑA DUDA
TENGO ESTE CODIGO PARA HACERR UN EFECTO DE MAQUINA DE ESCRIBIR PARA UN LABEL LO QUE YO QUISIERA ES KE FUNCIONARA PARA 3 LABELS COMO LE PODRIA HACER

Option Explicit
Dim a As String
Dim t As String
Dim b As Integer
Dim I As Integer

Private Sub Form_Load()
CheckAgain
End Sub

Private Sub Timer1_Timer()
Label2.Visible = True
t = Left(a, b)
Label2.Caption = t
b = b + 1
If b > I Then
b = 0
End If
End Sub

Sub CheckAgain()
a = Label2.Caption
I = Len(a)
b = 0
End Sub

O SI TIENEN OTRO CODIGO KE ME AYUDE SE LOS AGRADECERE
GRACIAS