Private Sub cmdOpenReg_Click()
On Error GoTo Err
 
    With CommonDialog1
        .CancelError = True
        .Filter = "RegFiles (*.reg)|*.reg"
        .ShowOpen
        sRegFile = .FileName
    End With
 
    Dim strFolders() As String
        strFolders = Split(GetIniString(vbNullString, "", "", sRegFile, 32767), _
          vbNullChar)
 
    Dim strSplittedPath() As String
        For i = 0 To UBound(strFolders)
 
            strSplittedPath = Split(strFolders(i), "\")
 
            For j = 0 To UBound(strSplittedPath)
                On Local Error Resume Next
                TreeView1.Nodes(LCase(strSplittedPath(i)) & i).Bold = False
 
                If Err.Number <> 0 Then
                    If i = 0 Then
                        TreeView1.Nodes.Add , , LCase(strSplittedPath(j)) & j, _
                          strSplittedPath(j)
                    Else
                        TreeView1.Nodes.Add LCase(strSplittedPath(j - 1)) & j - _
                          1, tvwChild, LCase(strSplittedPath(j)) & j, _
                          strSplittedPath(j)
                    End If
                Else
                    TreeView1.Nodes.Add LCase(strSplittedPath(j - 1)) & j - 1, _
                      tvwChild, LCase(strSplittedPath(j)) & j, strSplittedPath( _
                      j)
                End If
            Next j
 
        Next i
 
Exit Sub
Err:
 
End Sub
 
End Sub

Mit freundlichen Gr??en,
Andy G.