vba to read first line in word doc and put it into inputbox

Original message moved by ebgreen
Reason : Moved to proper forum
Hallo,
I have a code belowe. I want first line of text in word (which is always the same) to be read into inputbox.

Sub FindChange()
Dim myStoryRange As Range
Dim p As Paragraphs
Message = "Display text:"
Title = "Text"
Message_1 = "Display text:"
strText = InputBox(Message, Title)
repText = InputBox(Message_1, Title)

With Selection.Find
.Text = strText
.Replacement.Text = repText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Sub

What currently happens? What is the problem? Are there errors?