Someone

        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 Kunder(idx).Månadslön > dblKons 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


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