excel - InputBox値をヘッダーに割り当てる方法は？

Question

現在、私のコードがExcelのクラッシュを引き起こしています。

Sub headerDate()
Dim iReply As String

iReply = Application.InputBox("What is the input? ")
With ActiveSheet.pageSetup
    .CenterHeader = ""
    .RightHeader = _
    "                        Doc. No.: " & str(iReply) & Chr(10) & "Version: 2.3 (Modification f)" & Chr(10) & "Valid as of: 12/31/2012  "
End With
Application.PrintCommunication = True
Range("BI2").Select
End Sub

Answer 1

StrをCstrに変更する必要があると思います。

"Doc. No.: " & CStr(iReply) & Chr(10) & "Version: 2.3 (Modification f)" & Chr(10) ...