Sub ki142()
    hia = InputBox("｢年/月／日｣を入力して下さい")
    If IsDate(hia) Then
        hi = CDate(hia)
        hi = Format(hi, "yyyy/mm/dd(aaaa)")
    Else
        MsgBox "｢年/月／日｣を入力して下さい"
        Exit Sub
    End If
    MsgBox hi
End Sub