Underline code fejler. HASTER

Word2000 VBA
Hvad gør jeg galt i denne kode med hensyn til Understregning. Den er sat op til at udfylde bogmærket hvis det indeholder en værdi,, men den skulle også gerne så lægge en understregning på.
Det kan sagtens være at det er en lille ting.. men synes jeg har set mig blind på denne.
*******************
Selection.GoTo What:=wdGoToBookmark, Name:="bgmSagsNavn"
  Selection.FormFields("bgmSagsNavn").TextInput.EditType Type:=wdRegularText, Default:=txtSagsNavn, Format:=""

   
 
    If txtSagsNavn = "" Or IsNull(txtSagsNavn) Then
    Else
        With Selection
            .InsertBefore "Vedr.: "
            .Collapse Direction:=wdCollapseEnd
        End With
       

        Selection.GoTo What:=wdGoToBookmark, Name:="bgmSagsNavn"
        Selection.FormFields("bgmSagsNavn").TextInput.EditType Type:=wdRegularText, Default:=txtSagsNavn, Format:=""
        With Selection.Font
        .Underline = wdUnderlineSingle
        End With
    End If