Format function won't give correct result

Hi all. I've been finding this simple code below very weird. When I type 6/15/13 in the inputbox, it returns 6166 when it should be 613 (using text function in a non-vba formula). Any idea why it is like this?

Sub dateformat()
Dim n As Date
    n = InputBox("enter a date")
    MsgBox Format(n, "my")
End Sub

Thanks for your help.