text of a MsgBox to a cell

[marreco]

Hi.

How to send the text of a MsgBox to a cell within the tab?

Sub MsgBoxIntoCell()
    Dim msgRes As VbMsgBoxResult

msgRes = MsgBox("this message goes to the cell in tab.", _
                     vbOKCancel)
If msgRes = vbOK Then
     [A1].Value = msRes
ElseIf msgRes = vbCancel Then
     Exit Sub
End If
End Sub

Thank you!!!