SoloCodigo

Buenas tardes, sabria agradecer mucho si alguien me ayuda con este error, puede que sea algo sencillo pero no tengo idea como resolverlo... gracias de antemano a quien me pueda ayudar el error es: el argumento no es opcional y este es el codigo en Vb 6 con una base de datos en sql server

Public Function GenerarNoH(CentProg As String, Anio2 As String) As String
    Dim rsOts As ADODB.Recordset
    Dim CentProg1 As String, OTS_MAX As String
    Dim TxtSQL As String

    CentProg = Trim(CentProg)
    CentProg1 = CentProg & Anio2 & "0001"
    CentProg2 = CentProg & Anio2 & "00001"

    Set rsOts = CrearRS("SELECT SolicServ.CodSolicServ FROM SolicServ WHERE CodSolicServ='" & CentProg1 & "' Or CodSolicServ='" & CentProg2 & "'")

    If rsOts.RecordCount = 0 Then

        GenerarNoH = "00001"
        Exit Function
    Else
        CentProg1 = CentProg & Anio2 & "99999"

        TxtSQL = "SELECT MAX(CONVERT(NUMERIC(5), RIGHT(RTRIM(CodSolicServ), LEN(CodSolicServ) - 6))) AS OTS_MAX " _
        & "From SolicServ WHERE     (LEFT(CodSolicServ, 6) = LEFT('" & CentProg1 & "', 6))"
        Clipboard.Clear
        Clipboard.SetText TxtSQL

        Set rsOts = CrearRS(TxtSQL)

        If Len(Trim(rsOts("OTS_MAX"))) = 10 Then
            GenerarNoH = "0" & Right(Incrementar(rsOts("OTS_MAX")), 4)
        Else
            GenerarNoH = Quitarnulo(Right(Incrementar(rsOts("OTS_MAX"))), 5)

        End If

        GenerarNoH = CompletarCeros(GenerarNoH, 5)
    End If
End Function


da el error en estas lineas de codigo
 
  Public Function GenerarNoH(CentProg As String, Anio2 As String) As String
  GenerarNoH = Quitarnulo(Right(Incrementar(rsOts("OTS_MAX"))), 5)