excel - セルの内容をメッセージボックスのメッセージに表示するにはどうすればよいですか

Question

セル参照からMsgBoxのフィードに質問を表示するを開発しようとしています。MsgBox

そのため、下の例の「ヘクタールの数を入力してください」というメッセージで、私は からピックアップされたいと言っていWorksheet1 cell A1ます。

Sub ComplainceQuestion()
    On Error Resume Next
    Dim num As Double
    Dim Save
    num = Application.InputBox(prompt:="Please Enter The Number Of Hectares", Type:=1)
        MsgBox Format(num * 2.47105, "#,##0.00") & " Is the Number Of Acre's."
        Save = MsgBox("Do you want to paste the result in a cell?", vbYesNo)
        If Save = vbYes Then
            Cell = Application.InputBox("Type In The Cell Reference, for example 'G64'")
            Range(Cell).Value = num * 2.471054
        End If
End Sub