Private Sub txtDateInput_LostFocus() Dim inputValue As String Dim formattedValue As String Dim yearValue As Integer Dim monthValue As Integer ' テキストボックスから入力値を取得 inputValue = Me.txtDateInput.Value ' 入力値が6文字であることを…