Visual Basic - Semana del mes

Quisiera saber si alguien conoce algun metodo, propiedad, metodo de cualquier objeto el cual me entrege el numero de la semana que estoy consultando, ya que el Monthview me la despliega del 1 al 52 y la necesito por mes y no por año

de antemano gracias

Creo que si por ejemplo:
Function SemanaNro(Fecha1 as Date) as Integer
dim FechaPrimerDiaMes as Date
FechaPrimerDiaMes = "01/" & Month(Fecha1) & "/" & Year(Fecha1)
SemanaNro = Datediff("w",FechaPrimerDiaMes,Fecha1)
End Function
No he probado esta función pero el objetivo básico es calcular el nro de semanas transcurridas entre la fecha en cuestion y el primer día del mes de esa fecha, luego ese número de semanas será el número de la semana que tu deseas supongo......