vb根据输入框输出生日

Private Sub Command1_Click()
Dim shengri As String
shengri = InputBox("请输入您的生日", "生日", "1999-03-25")
MsgBox "您的生日是" & shengri

End Sub