Public Structure stKund
        Dim Namn As String
        Dim KonsumtionPerMånad() As Double
        Dim Månadslön As Double
    End Structure
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Kunder(), Kreditvärdiga_kunder() As stKund
        Dim intAntKund As Integer
        Dim idx, idy, idz As Integer
        Dim dblTotalKons, dblMedelKons As Double

        intAntKund = CInt(InputBox("Hur många kunder?"))

        ReDim Kunder(intAntKund)

        For idx = 1 To intAntKund
            Kunder(idx).Namn = InputBox("Namn?")
            ReDim Kunder(idx).KonsumtionPerMånad(12)
            For idy = 1 To 12
                Kunder(idx).KonsumtionPerMånad(idy) = CDbl(InputBox("Konsumtion månad " & idy & "?"))
            Next
            Kunder(idx).Månadslön = InputBox("Månadslön?")
        Next

        idz = 1 'Index för kreditvärdig kund #1

        For idx = 1 To intAntKund
            For idy = 1 To 12
                dblTotalKons += Kunder(idx).KonsumtionPerMånad(idy)
            Next
            dblMedelKons = dblTotalKons / 12
            If dblMedelKons < Kunder(idx).Månadslön Then
                ReDim Preserve Kreditvärdiga_kunder(idz)
                Kreditvärdiga_kunder(idz) = Kunder(idx)
                idz += 1
            End If
        Next

        For idx = 1 To UBound(Kreditvärdiga_kunder)
            MsgBox("Kreditvärdig kund " & idx & ": " & Kreditvärdiga_kunder(idx).Namn)
        Next
    End Sub