well, I tried this

Code:
    Public Shared Sub Main()

        Dim mycol As New StringCollection()
        Dim base() As String = {My.Settings.calc1, My.Settings.calc2, My.Settings.calc3, My.Settings.calc4, My.Settings.calc5, My.Settings.calc6, My.Settings.calc7, My.Settings.calc8}
        mycol.AddRange(base)

    End Sub
Values were added but never saved... any ideas?