Private Sub Form_Load()
Dim i, x, o As Long
Dim lngBackColor(4) As Long
Dim isin As Boolean
 
lngBackColor(0) = &HFFFFC0
lngBackColor(1) = &HFF00&
lngBackColor(2) = &HFFFF&
lngBackColor(3) = &HFF&
 
frmMain.testExcel
 
lngNumberOfRows = frmMain.xlWS.Cells(frmMain.xlWS.Rows.Count, 1).End(xlUp).Row
 
For x = 0 To File1.ListCount - 1
    For i = 1 To lngNumberOfRows
        lngBackColor(4) = lngBackColor(0)
        If frmMain.xlWS.Cells(i, 1) = File1.List(x) And _
           frmMain.xlWS.Cells(i, 4) = "in field" And _
           frmMain.xlWS.Cells(i, 18) = frmMain.uID Then
 
           isin = True
 
           lngBackColor(4) = lngBackColor(CLng(frmMain.xlWS.Cells(i, 19)))
           Tree1.Nodes.Add Text:=File1.List(x)
           o = Tree1.Nodes.Count
           Tree1.Nodes(o).BackColor = lngBackColor(4)
        Else: isin = False
        End If
    Next i
 
    If isin = False Then
        Tree1.Nodes.Add Text:=File1.List(x)
        o = Tree1.Nodes.Count
        Tree1.Nodes(o).BackColor = lngBackColor(0)
    End If
Next x
End Sub