Создание кнопки на форме

Private Sub Btn_Path_Click()
Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
    .Title = "Select picture"
 
    .InitialFileName = "C:\" 'ЗдесЯ монА поставить свой путь
    .AllowMultiSelect = False
    .Filters.Clear
    .Filters.Add "Picture files", "*.bmp;*.wmf;*.gif; *.jpg", 1
    result = .Show
 
    If result = 0 Then Exit Sub
    FName = Trim(.SelectedItems.Item(1))
End With
 
Me.altfile = FName
Call B51_Click
End Sub

Private Sub Паспорта_Click()
Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
    .Title = "Select file"
    .InitialFileName = "E:\Паспорта\" 
    .AllowMultiSelect = False
    .Filters.Clear
result = .Show
    
If result = 0 Then Exit Sub
FName = Trim(.SelectedItems.Item(1))
 
End With
Me.altfile = FName
End Sub

Private Sub Паспорта_Click()
Dim FName As String
Dim result As Integer
With Application.FileDialog(1)
    .Title = "Select file"
 
    .InitialFileName = "D:\паспорта\" 'ЗдесЯ монА поставить свой путь
    .AllowMultiSelect = False
    .Filters.Clear
result = .Show
    
If result = 0 Then Exit Sub
FName = Trim(.SelectedItems.Item(1))
 
End With
 
End Sub

Private Sub btnOpenPDF_Click()
Shell "C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe " & MyPath, vbNormalFocus
End Sub

Call Shell("explorer тут_путь_к_нужной_папке", vbNormalFocus)

Private Sub konteiner_DblClick(Cancel As Integer)
If Len(Dir("ВАШ ПУТЬ К ОБЩЕЙ ПАПКЕ" & Me.ИМЯ ВАШЕЙ ПАПКЕ НА ФОРМЕ, vbDirectory)) > 0 Then
Shell "explorer.exe ВАШ ПУТЬ К ОБЩЕЙ ПАПКЕ\" & Me.ИМЯ ВАШЕЙ ПАПКЕ НА ФОРМЕ, vbNormalNoFocus
Else
MkDir ("ВАШ ПУТЬ К ОБЩЕЙ ПАПКЕ\" & Me.ИМЯ ВАШЕЙ ПАПКЕ НА ФОРМЕ)
MsgBox "Будет создана папка"
End If
End Sub

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 
Private Sub a()
    'ptch = "e:\"
    ptch = CurrentProject.Path
    Call ShellExecute(0, "open", ptch, "", "", 1)
End Sub

Private Sub имя_поля_или_кнопки_на_текущей_форме_Click( )
 
If Len(Dir("ВАШ ПУТЬ К ОБЩЕЙ ПАПКЕ" & Me.код_поля_вашей_папки_на_форме, vbDirectory)) > 0 Then
Shell "explorer.exe ВАШ ПУТЬ К ОБЩЕЙ ПАПКЕ\" & Me.код_поля_вашей_папки_на_форме, vbNormalNoFocus
Else
MkDir ("ВАШ ПУТЬ К ОБЩЕЙ ПАПКЕ\" & Me.код_поля_вашей_папки_на_форме)
MsgBox "Будет создана папка"
End If
End Sub