Something

Option Explicit

' We will be using this for Network / User Sorting like this:

' [+]-- EFnet
' [-]-- DALnet
'         |
'          ----- JoeShmoe
'          ----- MaryJane

Private Sub MDIForm_Load()
    ' Don't know if I need it yet... Dim Header As String
    ' We will use Networks as arrayed string names.
    ' I is for looping through the list.
    
    Dim Network(0 To 6) As String, I As Integer
    
    
    With Me.lstUsers.Nodes
        For I = 0 To UBound(Network)
            ' Fill the list with all networks provided
            Network(I) = GetRegString(HKEY_LOCAL_MACHINE, "Software\D-Code Software\Myirc\Networks", "n" & CStr(I))
        
            .Add , , "Test", Network(I) ' <= This seems to not like the key, it works for the first r                                       ' round but it won't take Test again.?
        Next I
    End With
    
End Sub