Msgbox StrConv("wenas", vbProperCase)

Public Sub AddFolder(Direccion As String, Tree As TreeView)
 On Local Error Resume Next
 Dim Separa()               As String
 Dim i                      As Integer
 Dim Ruta                   As String
 Dim Titulo                 As String
 
 
 
 Separa = Split(Direccion, "\")
 For i = 0 To UBound(Separa) - 1
    If i = 0 Then Ruta = "\" Else Ruta = Separa(i)
    Titulo = Separa(i + 1)
    Tree.Nodes.Add Ruta, 4, Titulo, Titulo
 Next i
 
End Sub