Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To Me.Label1.Count
        Label1(i).Caption = "Hallo"
    Next i
End Sub
 
 
' Caption eintragen
Private Sub Command1_Click()
    Dim i As Long, i1 As Long
    For i1 = 1 To Me.Label1.Count
        Me.Label2(i1) = ""
        For i = 1 To Len(Me.Label1(i1))
           Me.Label2(i1) = Me.Label2(i1) & Mid(Me.Label1(i1), i, 1) & vbCrLf
        Next i
    Next i1
End Sub

Ein Anf?nger !!!!!