Dim oFSO As New FileSystemObject
 
Private Sub Command1_Click()
   If FolderExists(App.Path & "\results") = False then
       Call oFSO.CreateFolder(App.Path & "\results")
   End If
 
   'Hier kannst du nun mit App.Path & "\results" arbeiten
End Sub
 
Private Function FolderExists(ByVal sFolder As String) As Boolean
  FolderExists = oFSO.FolderExists(sFolder)
End Function