Desglosar caption label

[acopantepuy]

Me referia a esto:

Código vb:

Option Explicit
 
Private Sub Command1_Click()
    Dim cantidad As String
    Dim largoCantidad As Integer
    Dim i As Integer
    
    cantidad = Text1.Text
    
    largoCantidad = Len(cantidad)
    
    If largoCantidad > 3 Or largoCantidad < 3 Then
    
        MsgBox "El numero debe ser de tres dìgitos", vbInformation
    Else
        
        i = 0
        
        For i = 0 To 2 Step 1
                  
            Label1(i).Caption = Mid(cantidad, i + 1, 1)
        
        Next i
        
    End If
    
    
    
End Sub
 

La etiqueta label la manejas como un arreglo de controles