Kombinere to if-sætninger i VBA (Word)

Jeg har to forskellige koder til sletning af henholdsvis flere afsnit og til sletning af et enkelt tekstfelt. Jeg har de to koder, men kan kun få dem til at virke hver for sig, og har brug for hjælp til at få smeltet koderne sammen til en kode. Koderne er som følger:

Sub SletValg1afsnit()

    Dim f As FormField
    Dim rngParas As Range
      Set f = ActiveDocument.FormFields("Valg1")
        If f.Result = "-" Then
      'fjern beskyttelse
      UnprotectForFormFields ActiveDocument
      'definer range, som indeholder afsnit m. felt + næste 2 afsnit
      Set rngParas = f.Range.Paragraphs(1).Range
      rngParas.MoveEnd unit:=wdParagraph, Count:=2
      rngParas.Delete
      'beskyt igen
      ProtectForFormFields ActiveDocument
  End If
    Set f = Nothing
    Set rngParas = Nothing
End Sub


Sub SletTomtFelt1()

  Dim f As FormField
  Set f = ActiveDocument.FormFields("Valg1")
      If f.Result = "j" Then
        'fjern beskyttelse
        UnprotectForFormFields ActiveDocument
        f.Range.Paragraphs(1).Range.Delete
        'beskyt igen
        ProtectForFormFields ActiveDocument
      End If

End Sub