Ошибка доступа к пути/файлу - VB

Формулировка задачи:

Программа открывает doc файл, меняет там текст в закладках, на тот, который укажу в TextBox и сохраняет его в другой файл в указанный в программе путь. Папка сохранения создается автоматически и туда сохраняется новый doc. Но если созданную папку оставить как есть и в ней удалить все файлы, то при выполнении программы выводится ошибка -

Ошибка доступа к пути/файлу. IOExpecton не обработано

Как исправить это? Привожу сам код программы:

                    Листинг программы
                
 
                            
                        
Public Class Form1
 
    Dim s
    Dim Chasov As String
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Command1_Click()
    End Sub
 
    Private Sub Command1_Click()
        s = TextBox3.Text
        If (Int(s) Mod 100 >= 10) And (Int(s) Mod 100 <= 19) Then
            Chasov = " часов "
        Else
            Select Case Microsoft.VisualBasic.Strings.Right(s, 1)
                Case 0 : Chasov = " часов "
                Case 1 : Chasov = " час "
                Case 2 To 4 : Chasov = " часа "
                Case Else : Chasov = " часов "
            End Select
        End If
        Dim iFileName$, iPath$
        Dim objWordApp As Object, objWordDoc As Object
        iFileName = My.Application.Info.DirectoryPath & "\шаблон.doc"
        iPath = "D:\Изменяемые_документы"
 
        If Dir(iFileName) <> "" Then
            objWordApp = CreateObject("Word.Application")
            objWordDoc = objWordApp.Documents.Open(iFileName)
 
            objWordDoc.BookMarks("zak").Range.Text = TextBox1.Text
            objWordDoc.BookMarks("isp").Range.Text = TextBox2.Text
            objWordDoc.BookMarks("time").Range.Text = s & Chasov
            objWordDoc.BookMarks("grp").Range.Text = TextBox4.Text
 
            'objWordApp.Visible = True
 
            If Dir(iPath, vbDirectory) = "" Then MkDir(iPath)
            objWordDoc.SaveAs(FileName:=iPath & TextBox10.Text)
            objWordDoc.Close() : objWordApp.Quit()
            MsgBox("Документ успешно сохранен в iPath", Title:="Успешное выполнение")
        Else
            MsgBox("Документ изволит отсутствовать", vbCritical, "")
        End If
    End Sub

Решение задачи: «Ошибка доступа к пути/файлу»

textual
                            Листинг программы 
                        
If IO.Directory.Exists(iPath) = False Then IO.Directory.CreateDirectory(iPath)