Куда кидать ресурс?

Dim fileName As Object = "Квитанция на оплату.dot"

Dim fileName As Object = "C:\Users\Ильнар\Documents\Visual Studio 2013\Projects\Кушнаренков-ТВ Приложение для персонала\Кушнаренков-ТВ Приложение для персонала\Resources\Квитанция на оплату.dot"

            Dim app As Word.Application = New Word.Application
            Dim fileName As Object = "C:\Users\Ильнар\Desktop\Квитанция на оплату.dot"
            Dim missing As Object = Type.Missing
            app.Documents.Open(fileName)
            app.Visible = True
            Dim find As Word.Find = app.Selection.Find
            find.Text = "Ф!амилия И!мя О!тчетство"
            find.Replacement.Text = TextBoxX1.Text & " " & TextBoxX2.Text & " " & TextBoxX4.Text
 
            
 
            Dim wrap As Object = Word.WdFindWrap.wdFindContinue
            Dim replace As Object = Word.WdReplace.wdReplaceAll
            find.Execute(FindText:=Type.Missing, MatchCase:=False, MatchWholeWord:=False, MatchWildcards:=False, MatchSoundsLike:=missing, MatchAllWordForms:=False, Forward:=True, Wrap:=wrap, Format:=False, ReplaceWith:=missing, Replace:=replace)
 
 
            find.Text = "Д!ата"
            find.Replacement.Text = Now
            find.Execute(FindText:=Type.Missing, MatchCase:=False, MatchWholeWord:=False, MatchWildcards:=False, MatchSoundsLike:=missing, MatchAllWordForms:=False, Forward:=True, Wrap:=wrap, Format:=False, ReplaceWith:=missing, Replace:=replace)
 
 
            MsgBox("Услуги успешно оформлены", MsgBoxStyle.Information) : b = True : Me.Close()

Dim fileName As Object = Application.StartUpPath & "\Квитанция на оплату.dot"