Imports System.Collections.Generic >Imports System.IO > >Namespace ConsoleApplication3 > Class Program > Private Shared Sub Main(args As String()) > Dim userA = New User() With { _ > Key .Name = "Gary", _ > Key .OperatorName = "Gary NiceGuy", _ > Key .ID = "Gary", _ > Key .AccessLevel = 4, _ > Key .Password = "50564348" _ > } > Dim userB = New User() With { _ > Key .Name = "Tester", _ > Key .OperatorName = "Tester Hester", _ > Key .ID = "Tester", _ > Key .AccessLevel = 1, _ > Key .Password = "435242455243" _ > } > Dim users = New Users() > users.Add(userA.Name, userA) > users.Add(userB.Name, userB) > > Using sw As New StreamWriter("test.ini") > For Each v As var In users > sw.WriteLine("[" & v.Key & "]") > sw.WriteLine("OperatorID=" & v.Value.ID) > sw.WriteLine("OperatorName=" & v.Value.OperatorName) > sw.WriteLine("AccessLevel=" & v.Value.AccessLevel.ToString()) > sw.WriteLine("OperatorPassword" & v.Value.Password) > sw.WriteLine() > Next > End Using > End Sub > End Class > > Public Class User > Public Property ID() As String > Get > Return m_ID > End Get > Set > m_ID = Value > End Set > End Property > Private m_ID As String > Public Property Name() As String > Get > Return m_Name > End Get > Set > m_Name = Value > End Set > End Property > Private m_Name As String > Public Property OperatorName() As String > Get > Return m_OperatorName > End Get > Set > m_OperatorName = Value > End Set > End Property > Private m_OperatorName As String > Public Property Password() As String > Get > Return m_Password > End Get > Set > m_Password = Value > End Set > End Property > Private m_Password As String > Public Property LoggedIn() As [Boolean] > Get > Return m_LoggedIn > End Get > Set > m_LoggedIn = Value > End Set > End Property > Private m_LoggedIn As [Boolean] > Public Property AccessLevel() As Integer > Get > Return m_AccessLevel > End Get > Set > m_AccessLevel = Value > End Set > End Property > Private m_AccessLevel As Integer > End Class > > Public Class Users > Inherits Dictionary(Of String, User) > > End Class >End NamespaceThank you very much for your help on this.