Imports System.Text
Public Class CarPark
    Private iArrayList As ArrayList
    Public Sub New()
        iArrayList = New ArrayList
    End Sub
    Public Sub Arrive(ByVal pString As String)
        iArrayList.Add(pString)
    End Sub
    Public Sub Depart(ByVal pString As String)
        iArrayList.Remove(pString)
    End Sub
    Public Overrides Function ToString() As String
        Dim tStringBuilder As StringBuilder = New StringBuilder
        For Each tString As String In iArrayList
            tStringBuilder.Append(tString & vbCrLf)
        Next
        Return tStringBuilder.ToString()
    End Function
    Public Function Size() As Integer
        Return iArrayList.Count
    End Function
End Class