Sub abre_lista()
 
Dim itm As ListItem
Dim a, b, c As String
    Open App.Path & "\Data.txt" For Input As #1
    Do Until EOF(2)
    Input #1, a, b, c
              Set itm = lv1.ListItems.Add(, , a)
              itm.SubItems(1) = b
              itm.SubItems(2) = c
    Loop
    Close #1
 
End Sub

"usuario","password","rango"

' Estructura BrowseInfo requerida para el Api SHBrowseForFolder
Private Type BrowseInfo
    hWndOwner As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type
 
' Constantes
Const BIF_RETURNONLYFSDIRS = 1
Const MAX_PATH = 260 ' Para Buffer de caracteres del path
 
' Funcion Api CoTaskMemFree
Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)
 
' Funcion Api CoTaskMemFree lstrcat
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" ( _
    ByVal lpString1 As String, _
    ByVal lpString2 As String) As Long
 
' Funcion Api SHBrowseForFolder
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
 
' Funcion Api SHGetPathFromIDList
Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList _
As Long, ByVal lpBuffer As String) As Long
 
Private Sub Command1_Click()
Dim Ret As Long
Dim sPath As String
Dim tBI As BrowseInfo
 
    With tBI
        .hWndOwner = Me.hwnd
        .lpszTitle = lstrcat("Selecione una carpeta", "")
        .ulFlags = BIF_RETURNONLYFSDIRS Or 64
 
    End With
 
    'Mostrar el cuadro de dialogo Buscar carpeta
    Ret = SHBrowseForFolder(tBI)
 
    If Ret Then
 
        sPath = String$(MAX_PATH, 0)
        Call SHGetPathFromIDList(Ret, sPath)
        Call CoTaskMemFree(Ret)
 
        Dim pos As Long
        pos = InStr(sPath, vbNullChar)
 
        If pos Then
            sPath = Left$(sPath, pos - 1)
        End If
    End If
 
    'Mostramos el Path elegido en el textbox
    Text1.Text = sPath
 
End Sub