Hola acopantepuy, gracias por la ayuda.
Lo del contador creo que es algo así, pero lo del For o While, no sé hacerlo.
Código:
Dim contador As Integer
Private Sub Command1_Click()
contador = contador + 1
If contador > Len(LabelADesglosar) Then Exit Sub
Label1 = Mid(LabelbelADesglosar contador, 1)
contador = 0
contador = contador + 2
If contador > Len(LabelADesglosar) Then Exit Sub
Label2 = Mid(LabelADesglosar, contador, 1)
contador = 0
contador = contador + 3
If contador > Len(LabelADesglosar) Then Exit Sub
Label3 = Mid(LabelADesglosar, contador, 1)