I have the following code that based on a message box selection of "no" an input box will pop up to obtain information from the user. How do I get the information entered in the input box to output in a cell.

Private Sub Worksheet_Change(ByVal Target As Range)

'Makes all letters capital
    If Not Application.Intersect(Target, Range("L17:L25,L28:L29,H31:H33")) Is Nothing Then
    Application.EnableEvents = False
    Target(1).Value = UCase(Target(1).Value)
    Application.EnableEvents = True
    End If

'Creates MsgBox Company purchase
    If Not Application.Intersect(Target, Range("L28")) Is Nothing Then
    If Range("L28").Value = "Y" Then
       MsgBox ("Need the Companies Federal ID number" & vbCrLf & "Please obtain Corporate Resolution Letter before queueing the request"), vbCritical + vbOKOnly, "Happy Selling!"
    End If
End If

'Creates MsgBox for Spouse Information
Dim spName As String
Dim MyNote As String
Dim Answer As String

If Not Application.Intersect(Target, Range("L25")) Is Nothing Then
If Range("L25").Value = "Y" Then
MyNote = "Is the spouse purchasing as the co-buyer?"
Answer = MsgBox(MyNote, vbQuestion + vbYesNo, "Happy Selling!")
If Answer = vbNo Then
spName = InputBox("Obtain Name and Address of Spouse for the Wisconsin's Marital Property Law Tattletale Notice!")
Selection.typetext Text:=spName
Else
MsgBox "No additional information needed!"
End If
End If
End If
End Sub