If you know how to define the range where the file needs to be inserted then you just do that
Code:
Dim aRng As Range
Set aRng = ActiveDocument.Paragraphs(3).Range
aRng.InsertFile FileName:="C:\Text-To-MsWord\Sample.txt", ConfirmConversions:=False, Link:=False, Attachment:=False