Problema con listado de ArrayList en Consola

[andrea55]

EStoy haciendo un pequeño programita en consola en el que tengo que hacer un listado desde el ArrayList y en vez de inmprimirme el listado me imprime "Console.Application1.camion", aqui les dejo los codigos a ver si me puede ayudar.


esto está en el modulo

Código:

    Sub ListadoCamiones(ByVal inempre As empresa)
        Console.WriteLine(inempre.ListarCamiones)
        Console.ReadLine()
    End Sub

esto esta en empresa

Código:

    Public Function ListarCamiones() As String
        Dim listado As String = "Listado de camiones"
        If Me.ColCamiones Is Nothing Or Me.ColCamiones.Count = 0 Then
            listado &= ControlChars.NewLine & "No se puede listar los camiones"
        Else
            listado = "Listado de Camiones"
            For i As Integer = 0 To i < Me.ColCamiones.Count - 1
                listado &= ControlChars.NewLine & Me.ColCamiones.Item(i).ToString
                i += 1
            Next
        End If
        Return listado
    End Function

si existen los camiones o no me ntra en el if corecto pero no me imprime los camiones listados.

Gracias