设置:

Dim number As Integer
Dim num As String
Dim al As New ArrayList()
If Not (al.Contains(number)) Then
    al.Add(number)
End If

获取:

For Each number In al
    num = number.ToString()
Next