当我尝试添加图片时出现错误，然后不要

Question

我已经创建了一个用户表单，供学生在其中添加照片。 当我按添加图片时，我按取消会出现此消息： “下标超出范围” 并显示以下代码：

imgDestination = ThisWorkbook.Path & "\Images\" & adminpanel.Studentname & _
     "." & Split(imgSourcePath, ".")(UBound(Split(imgSourcePath, ".")))

我想我应该添加一条消息，说您尚未添加照片，但我不知道如何。