Identificar a recorrência de um dia da Semana.

Olá pessoal tudo bem!
Estou quebrando a cabeça e não consegui chegar a uma solução.

Eu preciso informar uma data qualquer ex: 11/11/2017 e uma função precisa identificar qual o dia da semana e qual a recorrência dele dentro do mês.

Ex: 1
11/11/2017 -> 2º Sábado do Mês.

Ex: 2
17/11/2017 -> 3º Sexta-Feira do Mês.

Logo, qualquer data que eu inserir a função precisa identificar qual o dia da semana e qual a recorrência dentro do mês.

Alguém conhece alguma forma de fazer isso?

Fiz uma função que retorna uma matriz com 2 valores, sendo:
O primeiro valor (0) retorna o dia da semana
O segundo valor (1) retorna a quantidade que apareceu naquele mês

Código:


Public Function ContaDiaSemana(pData As Date)
'Criada por Thiago de Mello Costa

Dim vDiaSemana, vContagem, vDia, vMes, vAno
Dim vRetorno()

vDia = Day(pData)
vMes = Month(pData)
vAno = Year(pData)
vDiaSemana = Weekday(pData)
vContagem = 0

For i = 1 To vDia
    If Weekday(DateSerial(vAno, vMes, i)) = vDiaSemana Then
        vContagem = vContagem + 1
    End If
Next

ReDim vRetorno(2)

vRetorno(0) = WeekdayName(vDiaSemana)
vRetorno(1) = vContagem

ContaDiaSemana = vRetorno

End Function

Para testar criei o código abaixo:

Código:

Sub TestaFuncaoData()
Dim vMatriz, vQualData, vOrdinal

vQualData = InputBox("Digite Data")

If Not IsDate(vQualData) Then Exit Sub

vMatriz = ContaDiaSemana(CDate(vQualData))
If Weekday(vQualData, 2) >= 6 Then
    vOrdinal = "º"
Else
    vOrdinal = "ª"
End If

MsgBox vMatriz(1) & vOrdinal & " " & vMatriz(0) & " do Mês."

End Sub


Se alguém souber um jeito de fazer aplicando menos linhas e quiser fazer o favor de disponibilizar.
Gostaria de fazer isso de um jeito mais simples.

Código, sensacional.
Funcionou perfeitamente.
Muito obrigado.

Se a duvida foi resolvida, por favor marque o Tópico como Resolvido!

Até a Próxima se Deus quiser! O Fórum agradece!!!