Case Is = "AP-15"
Rellenar "denominacion", "Autopista de Navarra"
                If lPK >= 0 And lPK <= 1.225 Then
                        Rellenar "termino", "Corella"
                        Rellenar "partido", "Tudela"
                End If

Public Sub Rellenar(strNombreMarcador As String, strValor As String)
'Gorka Cuairan. Función que rellena marcadores
Dim Rng As Range
    With ActiveDocument
        On Error GoTo lbl_Exit
        Set Rng = .Bookmarks(strNombreMarcador).Range
        Rng.Text = strValor
        Rng.Bookmarks.Add strNombreMarcador
    End With
lbl_Exit:
    Set Rng = Nothing
    Exit Sub
End Sub

Private Sub Userform_Activate()          'FORMULARIO, CARGA VIA
Call Carreteras.CargarCarreteras(cbovia)
End Sub

Public Sub CommandButton1_Click()        'BOTON Aceptar'
' Uso la funcion Rellenar
   Rellenar "via", cbovia.Text           ' Asigno valor introducido en combo cbovia
   Rellenar "kilometro", txtpk.Text   ' Asigno valor en textbox kilometro
Dim sVia As String
Dim lPK As String
    sVia = cbovia.Text
    lPK = txtpk.Value
lbl_Exit:
    Exit Sub
End Sub

 If lPK > 112.151 Then
MsgBox "Introduce un punto kilometrico menor que 112,151"
   End If