Sub FindOnLineSix()

Dim myRange As range

Set myRange = ActiveDocument.Content.GoTo(what:=wdLine, which:=wdGoToAbsolute, Count:=6)
    
    If InStr(myRange.Text, "NRCS") Then
        Debug.Print " I found NRC5"
    ElseIf InStr(myRange.Text, "Washington") Then
        Debug.Print "I found Washington"
    ElseIf InStr(myRange.Text, "FSA") Then
        Debug.Print "I found FSA"
    ElseIf InStr(myRange.Text, "St Louis") Then
        Debug.Print "I found St Louis"
    ElseIf InStr(myRange.Text, "Kansas City") Then
        Debug.Print "I found Kansas City"
    Else
        Debug.Print "Boo ho.  Nothing found"
    End If


End Sub