Creating a folder in desktop and inside it, save new workbooks...

How would I go about doing something like this in VBA?

Let's say we have an active worksheet containing the following:


Given that, I want to be able to create a folder in my desktop called "test" and within that folder create two excel workbooks. The first workbook will be named "foo1" and contains "Hello1" in cell A1, and the second workbook will be named "foo2" and contains "Hi2" in cell A1?

Thanks!