Place this in your Command button click code...

Code:
If Dir(App.Path & "Recordings") = "" Then
    MkDir App.Path & "Recordings"
End If