You can get everything except "Year", with this.
Code:
Private Sub Command1_Click()
    Dim x As String
    x = "04/15/2001"
    MsgBox Format(x, "mmmm mm,dddd dd, yyyy")
End Sub
Might try using 2 format functions to concatenate "Year" into the string.