Public Function Tejuelo(TituloLibro) As String
    Dim re As Object    'VBScript.RegExp
    Dim s As String
    
    If IsNull(TituloLibro) Then
        'Si nos pasan un dato nulo, devolvemos una cadena vacía
        Tejuelo = vbNullString
    Else
        'Creamos el objeto
        Set re = New RegExp
        
        With re
            .Multiline = False  'No nos interesan los retornos de carro
            .IgnoreCase = True  'Nos da igual las mayúsculas y minúsculas
            .Global = False     'Alcance global. No sé bien que es, pero queda bien
            
            'Lo que hay que buscar:
            '^ indica que buscamos al principio del texto
            '(...) indica que se busca lo que hay dentro
            '| es el operador OR: o el, o la, o ...
            '\s indica que después debe haber un espacio
            .Pattern = "^(el|la|lo|los|las|un|una|unos|unas)\s"
            
            'Intentamos cambiar el artículo por una cadena vacía
            'Si no encuentra nada, devuelve el texto completo
            s = .Replace(TituloLibro, "")
            
            'Y devolvemos las 3 primeras letras en mayúscula
            Tejuelo = UCase(Left(s, 3))
        End With
        
        'Liberamos memoria
        Set re = Nothing
    End If
End Function

SELECT Libros.Libro, Tejuelo([Libro]) AS Tejuelo
FROM Libros;