Access - como aumentar las filas de una barra a mas de 13

Private Sub Form_Load()

Dim ctl As Control

For Each ctl In Me.Controls

    If ctl.ControlType = acLabel And IsNumeric(Left(ctl.Name, 2)) Then

        ctl.OnClick = "=barra('" & ctl.Name & "','Colores', 'Caries', 1, 'Amalgama Adaptada', 2, 'Amalgama Desadaptada', 3, 'Exodoncia', 4, 'Ausente', 5, 'Endodoncia a Realizar', 6, 'Sin Erupcionar', 7, 'Endodoncia Realizada', 8, 'Corona Adaptada', 9, 'Corona Desadaptada', 10, 'Resina Adaptada', 11, 'Resina Desadaptada', 12, 'Sano', 13,)"

       End If

Next ctl

End Sub

Function barra(mieti As String, nombreBarra As String, ParamArray valores() As Variant)

Dim cbar As Office.CommandBar

Dim i As Integer

Dim ctl As CommandBarControl

If (UBound(valores()) + 1) Mod 2 <> 0 Then

    MsgBox "Número de parámetros incorrectos pasados a la función 'barra'" & Chr(13) & _

            "Debe introducir el literal y el valor por parejas" & Chr(13) & _

            "Revise la sintaxis de la funcion barra en el modulo BarraEmergente", vbInformation + vbOKOnly, "ERROR DE SINTAXIS"

            Exit Function

End If

' Comprobamos si la barra existe, y si es así la borramos para poder crearla de nuevo

' es mas facil que modificarla

For Each cbar In CommandBars

    If cbar.Name = nombreBarra Then

        cbar.Delete

        Exit For

    End If

Next cbar

' Creamos la nueva barra

Set cbar = CommandBars.Add(Name:=nombreBarra, Position:=msoBarPopup, Temporary:=False)

'poniendo Temporary a False la barra es permanente. Si es False la barra se borra al cerrar la MDB

cbar.Protection = msoBarNoCustomize

    ' rellenamos los elementos de la barra a partir de la matriz valores()

    For i = 0 To UBound(valores())

        Set ctl = cbar.Controls.Add(Type:=1)

        ctl.Caption = valores(i)

        i = i + 1

        ctl.OnAction = "= Asignavalor('" & mieti & "', '" & valores(i) & "')"

    Next i

Set ctl = Nothing

Set cbar = Nothing

CommandBars(nombreBarra).ShowPopup

End Function

Option Compare Database

Option Explicit

Private Sub Form_Load()

    Dim sOpt As String

    Dim ctl As Control

    sOpt = ""

    sOpt = sOpt & "'Caries', 1, "

    sOpt = sOpt & "'Amalgama Adaptada', 2, "

    sOpt = sOpt & "'Amalgama Desadaptada', 3, "

    sOpt = sOpt & "'Exodoncia', 4, "

    sOpt = sOpt & "'Ausente', 5, "

    sOpt = sOpt & "'Endodoncia a Realizar', 6, "

    sOpt = sOpt & "'Sin Erupcionar', 7, "

    sOpt = sOpt & "'Endodoncia Realizada', 8, "

    sOpt = sOpt & "'Corona Adaptada', 9, "

    sOpt = sOpt & "'Corona Desadaptada', 10, "

    sOpt = sOpt & "'Resina Adaptada', 11, "

    sOpt = sOpt & "'Resina Desadaptada', 12, "

    sOpt = sOpt & "'Sano', 13"

    For Each ctl In Me.Controls

        If ctl.ControlType = acLabel And IsNumeric(Left(ctl.Name, 2)) Then

            ctl.OnClick = "=Barra('" & ctl.Name & "','Colores', " & sOpt & ")"

        End If

    Next

End Sub

'La función de la barra es la siguiente

'**************************************

Function Barra(miEti As String, nombreBarra As String, ParamArray valores() As Variant)

    Dim cBar As Office.CommandBar

    Dim ctl As CommandBarControl

    Dim nI As Integer

    If (UBound(valores()) + 1) Mod 2 <> 0 Then

        MsgBox "Número de parámetros incorrectos pasados a la función 'barra'" & vbCr & _

        "Debe introducir el literal y el valor por parejas" & vbCr & _

        "Revise la sintaxis de la funcion barra en el modulo BarraEmergente", vbInformation + vbOKOnly, "ERROR DE SINTAXIS"

        Exit Function

    End If

    'Comprobamos si la barra existe,

    'y si es así la borramos para poder

    'crearla de nuevo es mas facil que

    'modificarla

    '**********************************

    On Error Resume Next

    CommandBars(nombreBarra).Delete

    On Error GoTo 0

    'For Each cBar In CommandBars

    '    If cBar.Name = nombreBarra Then

    '        cBar.Delete

    '        Exit For

    '    End If

    'Next

    'Creamos la nueva barra

    '**********************

    Set cBar = CommandBars.Add(Name:=nombreBarra, Position:=msoBarPopup, Temporary:=True)

    'Poniendo Temporary a False la barra es permanente.

    'Si es False la barra se borra al cerrar la MDB

    '**************************************************

    cBar.Protection = msoBarNoCustomize

    'Rellenamos los elementos de la barra

    'a partir de la matriz valores()

    '************************************

    For nI = 0 To UBound(valores()) Step 2

        Set ctl = cBar.Controls.Add(msoControlButton, 1)

        ctl.Caption = valores(nI + 1) & " -> " & valores(nI)

        ctl.OnAction = "AsignaValor('" & valores(nI) & "', '" & valores(nI + 1) & "')"

    Next

    Set ctl = Nothing

    Set cBar = Nothing

    CommandBars(nombreBarra).ShowPopup

End Function