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

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