Word VBA Zeile zum oberen Rand scrollen

[Amateurprofi]

Ich möchte die Zeile in einem Dokument, in der das Eingabe Caret steht, an den oberen Rand des Fensters scrollen.
Mein Ansatz

Code:

   Dim Start As Long
   Start = Selection.Start
   Do While Not (Start ist am oberen Rand)
      Selection.Move Unit:=wdLine, Count:=1
   Loop

Problem:
Wie kann ich ermitteln, ob sich Start am oberen Rand befindet?