View/Viewmodel in this case just for testing

Module1.vb

Module Module1

    Sub Main()

        Dim repository As New CarRepository

        Dim cars = repository.GetCars().ToArray

        Console.WriteLine("Set Car 1 model to Van?")
        If Console.ReadLine = "y" Then
            Console.WriteLine("Changing model to Van")
            cars(0).Model = "Van"
        End If

        Console.WriteLine("Save?")
        If Console.ReadLine = "y" Then
            Console.WriteLine("Saving")
            repository.SaveCars(cars)
        End If

        Console.ReadLine()

    End Sub

End Module