入力ボックスで値を取得する

Dim str As String
str = InputBox("値を入力")
If str = "" then
    Exit Sub
End If