Private Sub CommandButton2_Click()
Dim oCC As ContentControl
Dim sVia As String, lPK As String, sTermPart As String, arr() As String
    sVia = ComboVia.Text
    lPK = textPK.value

    Select Case sVia
        Case Is = "A-68"
            If lPK < 85 Then
                sTermPart = "Castejon|Tudela"
            ElseIf lPK < 99 Then
                sTermPart = "Corella|Estella"
            Else
                sTermPart = "Fontellas|Tafalla"
            End If
        Case Is = "NA-3010"
            If lPK < 25 Then
                sTermPart = "Cortes|Tudela"
            ElseIf lPK < 35 Then
                sTermPart = "Ribaforada|Tafalla"
            Else
                sTermPart = "Novillas|Estella"
            End If
    End Select
    If UBound(arr) > 0 Then
        arr = Split(sTermPart, "|")
        For Each oCC In ActiveDocument.ContentControls
            Select Case oCC.Title
                Case Is = "termino"
                    oCC.Range.Text = arr(0)
                Case Is = "partido"
                    oCC.Range.Text = arr(1)
            End Select
        Next oCC
    End If
lbl_Exit:
    Set oCC = Nothing
    Exit Sub
End Sub