简单VB问题

有一道程序，我想要完善以下功能，当点击删除 重命名 复制三个按钮 ，弹出输入对话框，当我们输入完毕，点击确定后，如果在执行这些之前，文件列表框没有选择文件，也就是没有源文件，就提示 “文件或路径访问错误”我以为设置一个msgbox就可以 但是弹出的msgbox点击确定就对出程序了，有没有办法点击确定后不要退出程序，而是给我们机会去文件列表框选中文件，再执行重命名 删除 复制等命令
下面是我的代码，请回的人帮我完善这个功能 谢谢
Dim choicedfile As String

Private Sub cmdcopy_Click()
Dim sourfile As String
Dim destfile As String
str2$ = "请输入复制目的文件"
sourfile = choicedfile
destfile = InputBox$(str2$, "复制文件")
If destfile <> "" Then
FileCopy sourfile, destfile

End If

End Sub

Private Sub cmdend_Click()
End
End Sub

Private Sub cmdkill_Click()
Dim killedfile As String
killedfile = choicedfile
Title$ = "数据检查框"
msg1$ = "你要删除文件:" & killedfile
x = MsgBox(msg1$, 35, Title$)
If x = 6 Then
Kill killedfile
End If

End Sub

Private Sub cmdrename_Click()
Dim oldname As String
Dim newname As String
Title$ = "重新命名"
str0$ = "请再输入一次需要修改的文件名(全路径)"
str1$ = choicedfile + Chr$(10) + Chr(13) + str0$
str2$ = "请输入新文件名&q