Conocer la Semana de una fecha dada

Function CalculaSemana(ByVal Fecha As Date) As Integer
    Dim FechaPrimAnyo As Date
    Dim DiaSemanaPrimAnyo As Integer
    Dim DiaSemanaFecha As Integer
    Dim Sumando As Integer
    Dim DiasTranscurridos As Integer

    FechaPrimAnyo = CDate("01/01/" & CStr(Year(Fecha)))
    DiaSemanaPrimAnyo = WeekDay(FechaPrimAnyo)
    DiaSemanaFecha = WeekDay(Fecha)
    DiasTranscurridos = Fecha - FechaPrimAnyo + DiaSemanaPrimAnyo - 1
    CalculaSemana = (DiasTranscurridos \ 7) + 1
End Function

Function CalculaSemana(ByVal Fecha As Date) As Integer
    CalculaSemana = DatePart("ww", Fecha)
End Function