Certo che si puo' realizzare. Utilizza la funzione Mid$ per prelevare le singole lettere e assegnale alle Label ... magari utilizza un array di Label per sfruttarne l'indice ...

Qualcosa di simile

[CODE]
For i=1 To Len(Label1.Caption)
Label2(i).Caption = Mid$(Label1.Caption, i)
Next i
[/QUOTE]