Here's an example of what I mean, using this part of your code:

'Create and loop through an array list

Dim MyList As New ArrayList

MyList.Add("Apple")

MyList.Add("Orange")

MyList.Add("Banana")

MyList.Add("Peach")

MyList.Add("Cherry")

Dim i As Integer

Dim value As String

For Each value In MyList

Dim button As DialogResult = MessageBox.Show(New Form(), value.ToString(), "ArrayList Value " + i.ToString, MessageBoxButtons.OK)

i += 1

Next

Dts.TaskResult = ScriptResults.Success

End Sub