Private Sub Form_Load()
    Dim x, o, i As Integer
    Dim lngBackColor0, lngBackColor1, lngBackColor2, lngBackColor3 As Long
    Dim txt As String
 
 
    lngBackColor0 = &HFFFFC0
    lngBackColor1 = &HFF00&
    lngBackColor2 = &HFFFF&
    lngBackColor3 = &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 Step 1
 
    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
 
      If frmMain.xlWS.Cells(i, 19) = "1" Then
         Tree1.Nodes.Add Text:=File1.List(x)
         o = Tree1.Nodes.Count
         Tree1.Nodes(o).BackColor = lngBackColor1
      End If
 
      If frmMain.xlWS.Cells(i, 19) = "2" Then
         Tree1.Nodes.Add Text:=File1.List(x)
         o = Tree1.Nodes.Count
         Tree1.Nodes(o).BackColor = lngBackColor2
      End If
 
      If frmMain.xlWS.Cells(i, 19) = "3" Then
         Tree1.Nodes.Add Text:=File1.List(x)
         o = Tree1.Nodes.Count
         Tree1.Nodes(o).BackColor = lngBackColor3
      End If
 
    Else
 
      Tree1.Nodes.Add Text:=File1.List(x)
      o = Tree1.Nodes.Count
      Tree1.Nodes(o).BackColor = lngBackColor0
    End If
Next x
 
If Tree1.Nodes.Count = 0 Then
   MsgBox "No files to open!", vbOKOnly
   Else
    Tree1.Nodes(1).Selected = True
End If
 
End Sub