This function will allow the user to select a system.

    Dim fd As FileDialog
    Dim returnvalue as string
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)
   
    With fd
        .Title = "Please Select the Folder Location"
        .InitialFileName = Application.Path
        If .Show = -1 Then
            ' Location Selected.
            returnvalue = .SelectedItems(1)
        End If
    End With
   
    Set fd = Nothing