How do I create a folder in VB if it doesn’t exist ?

Private Sub Command1_Click()

On Error GoTo thiserror
MkDir ("c:\MyFolder\")
Exit Sub
thiserror:
If Err.Number = 75 Then MsgBox "folder already exist", vbExclamation

End Sub