Άνοιγμα φακέλου

[kouk]

Καλησπέρα σε όλους...
έχω ένα πρόβλημα και θα ήθελα την βοήθειά σας. Έκανα μία βάση στην οποία ανοίγοντας μια φόρμα δημιουργεί έναν φάκελο σε μια διεύθυνση δίνοντάς τον ένα όνομα που καθόρισα...
Πώς είναι δυνατών να ανοίγω τον φάκελο αυτόν πατώντας ένα κουμπί της φόρμας όποτε την επισκέπτομαι???

Ευχαριστώ εκ των προτέρων....

Private Sub Form_Load()
Dim fso
Dim fol As String

fol = "c:\users\" & MemberID & "_" & Επίθετο & " " & Όνομα & ""
Set fso = CreateObject("Scripting.FileSystemObject")
If Not (fso.FolderExists(fol)) Then
fso.CreateFolder (fol)
MsgBox "Ο φάκελος δημιουργήθηκε!"
End If

End Sub