si il codice è giusto

però mi da errore sul codice del bottone "sfoglia" e cioè questo:

Private Sub Sfoglia_Click()
Percorso.Text = SfogliaCartelle(Me.hWnd)
End Sub