vba 出现:参数错误或无效属性赋值

该怎么写入变量?

Sub 竖向插入()
'
' InsertPic 宏
'

'
Dim a As Integer
Dim S As Shape
Dim d As String

Path1 = InputBox("请输入图片路径（放在什么盘 / 什么文件夹）：")
b = InputBox("请输入图片放置位置，格式如：A 或 C等其他列：")
c = InputBox("请输入图片个数：")
psize = InputBox("请输入图片大小10-1000:")
For a = 1 To c
Range(b & a).Select
d = Path1 & "" & a & ".jpg"
Set S = ActiveSheet.Shapes.AddPicture(d)
Selection.ShapeRange.Width = psize

Next
End Sub

注释掉所有On Error Resume Next语句，在VBA IDE中运行，
出错后点击调试，光标会停在出错的那条语句处，
或者
事先在怀疑可能有逻辑错误的语句处设置断点，运行经过断点时中断，

此时可以在立即窗口中使用
?变量名
或
?函数名(函数参数)
或
过程名(参数)
辅助调试。

For a = 1 To c
Range(b & a).Select
d = Path1 & "" & a & ".jpg"
if FileExists(d) then
 Set S = ActiveSheet.Shapes.AddPicture(d)
 Selection.ShapeRange.Width = psize
endif

Next