VBA Open to a directory on my computer

Sub test()
    Dim filex As Variant
    filex = Application.GetSaveAsFilename(InitialFilename:="c:\temp\xxx\", _
            FileFilter:="microsoft excel files (*.xls), *.xls")
    If filex <> False Then MsgBox "File Saved as " & filex
End Sub

Sub Test()
    strStartPath = "C:\temp\"  'start folder
    strTargetDir = "ffff"   ' target subfolder
    ListFolder strStartPath, strTargetDir
End Sub
Sub ListFolder(ByVal sFolderPath As String, sTarget)
    Dim FS
    Dim FSfolder
    Dim subfolder
    Dim i As Integer
    Dim filex As Variant
    Set FS = CreateObject("Scripting.FileSystemObject")
    Set FSfolder = FS.GetFolder(sFolderPath)
     On Local Error Resume Next
    For Each subfolder In FSfolder.SubFolders
        Debug.Print Mid(subfolder, InStrRev(subfolder, "\") + 1)
        If Mid(subfolder, InStrRev(subfolder, "\") + 1) = sTarget Then
            filex = Application.GetSaveAsFilename(InitialFilename:=subfolder & "\", _
                    FileFilter:="microsoft excel files (*.xls), *.xls")
            If filex <> False Then
                Application.SaveWorkspace filex
                MsgBox "File Saved as: " & filex
            End If
            Set FS = Nothing
            Set FSfolder = Nothing
            Exit Sub
        End If
        DoEvents
        i = i + 1
        ListFolder subfolder, sTarget
    Next subfolder
    Set FS = Nothing
    Set FSfolder = Nothing
End Sub