Vb.Net - Displaying Collection Contents, Visual Basic

Language: Layout:

'Rextester.Program.Main is the entry point for your code. Don't change it.
'Microsoft (R) Visual Basic Compiler version 2.9.0.63208 (958f2354)

Imports System
Imports System.Collections.Generic
Imports System.Linq
Imports System.Text.RegularExpressions

Namespace Rextester
    Public Module Program
        
        Public Sub Main(args() As string)
        
            Dim listofFruit As ArrayList = New ArrayList
            
            'Dim collectionofFruit as List<string[]> = New List<string[]>()
            Dim collectionofFruit As New List(Of String)
        
            listofFruit.Add("Apple")
            listofFruit.Add("Orange")
            listofFruit.Add("Pear")
            
            'Call listManagement(listofFruit)
             
            collectionofFruit.Add("Apple")
            collectionofFruit.Add("Orange")
            collectionofFruit.Add("Pear")
            
            Call listManagementWithObjectString(collectionofFruit )
 
 
        End Sub
        
        Private Sub listManagement(listofFruit As Object)
        
            
            Const FORMAT_DISPLAY As String = "{0, -40}  {1, -30}  {2,-30}"
            
            Dim arrayofFruit As Array = Nothing
            Dim strFruitsFromStringJoin as String = ""
            Dim strFruitsFromArrayToString as String = ""
            Dim strLog as String = ""
        
            arrayofFruit = listofFruit.ToArray()
            
            strFruitsFromStringJoin = String.Join(", ",  arrayofFruit)
            
            strfruitsFromArrayToString = arrayofFruit.ToString()
            
            strLog = String.Format(FORMAT_DISPLAY _
                                     , "listofFruit" _
                                     , listofFruit.GetType() _
                                     , listofFruit.ToString())
            
            Console.WriteLine(strLog)
            
            strLog = String.Format(FORMAT_DISPLAY _
                                     , "arrayofFruit" _
                                     , arrayofFruit.GetType() _
                                     , arrayofFruit)
            
            Console.WriteLine(strLog)
            
            strLog = String.Format( _
                                    FORMAT_DISPLAY _ 
                                    , "strFruitsFromStringJoin" _
                                    , strFruitsFromStringJoin.GetType() _
                                    , strFruitsFromStringJoin)
            
            Console.WriteLine(strLog)
            
            strLog = String.Format( _
                                    FORMAT_DISPLAY _
                                    , "strfruits" _
                                    , strFruitsFromArrayToString.GetType() _
                                    , strFruitsFromArrayToString)
            
            Console.WriteLine(strLog)
            
        End Sub
        
        
        Private Sub listManagementWithObjectString(listofFruit As List(Of String))
            
            Dim arrayofFruit() As String
            Dim strFruitsFromStringJoin as String = ""
            Dim strFruitsFromObjectToString as String = ""
            Dim strFruitsFromArrayToString as String = ""
            Dim strLog as String = ""
            
            Const FORMAT_DISPLAY As String = "{0, -40}  {1, -30}  {2,-30}"
                
            'Convert List to array    
            arrayofFruit = listofFruit.ToArray()
            
            'Join array contents using comma (,)
            strFruitsFromStringJoin = String.Join(", ",  arrayofFruit)
            
            'Issue ToString against Array of String
            strFruitsFromObjectToString = arrayofFruit.ToString()
            
            strLog = String.Format(FORMAT_DISPLAY _
                                     , "strFruitsFromObjectToString" _
                                     , strFruitsFromObjectToString.GetType() _
                                     , strFruitsFromObjectToString)
            
            Console.WriteLine(strLog)
            
            strLog = String.Format( _
                                    FORMAT_DISPLAY _ 
                                    , "strFruitsFromStringJoin" _
                                    , strFruitsFromStringJoin.GetType() _
                                    , strFruitsFromStringJoin)
            
            Console.WriteLine(strLog)
            
            strLog = String.Format( _
                        FORMAT_DISPLAY _
                        , "String.Join(', ', listofFruit.ToArray)" _
                        , "" _
                        , String.Join(", ", listofFruit.ToArray))
                        
            Console.WriteLine(strLog)

End Sub
        
    End Module
    
End Namespace

Show compiler warnings [ + ] Show input