Someone

        Public Structure stKund
            Dim Namn As String
            Dim KonsumtionPerMånad() As Double
            Dim Månadslön As Double
        End Structure        

        Public Sub BLABLABLA
        Dim Kunder() As stKund
        Dim KredKunder() As stKund
        Dim intAntal, idx, idy, idz As Integer
        Dim dblKons As Double

        'Bestämmer hur många kunder som ska läsas in
        intAntal = CInt(InputBox("Hur många kunder"))

        'Ändrar antal i Arrayen
        ReDim Kunder(intAntal)

        'Läser in kunder
        For idx = 1 To intAntal
            Kunder(idx).Namn = InputBox("Skriv in kundens namn.")
            Kunder(idx).Månadslön = CDbl(InputBox("Skirv in kundens månadslön."))
            'Sätter konsumtionpermånad värde till 12 för 12 månader
            ReDim Preserve Kunder(idx).KonsumtionPerMånad(12)
            For idy = 1 To 12
                Kunder(idx).KonsumtionPerMånad(idy) = _
                CDbl(InputBox("Skriv in kundens månads konsumtion." & vbCrLf & "För månad " & idy))
            Next
        Next

        'Fixar års konsumtionen
        For idx = 1 To intAntal
            For idy = 1 To 12
                dblKons = dblKons + Kunder(idx).KonsumtionPerMånad(idy)
            Next
            'Fixar genomsnitts konsumtion / månad
            dblKons = dblKons / 12
            'Lägger in kreditvärdiga kunder i ny array
            If dblKons < Kunder(idx).Månadslön Then
                ReDim Preserve KredKunder(idz)
                KredKunder(idz).Namn = Kunder(idx).Namn
                idz += 1
            End If

            For idz = 1 To UBound(KredKunder)
                MsgBox("Kreditvärdig Kund " & idz & ": " & KredKunder(idz).Namn)
            Next
        Next
        End Sub