Imports System.Collections public class Test public Shared Sub Main Dim array_list As New ArrayList array_list.Add("A") array_list.Add("B") array_list.Add("C") ' Array of strings. Dim string_array() As String string_array = DirectCast(array_list.ToArray(GetType(String)), String()) End Sub End class