Yo lo haría de la siguiente manera.
Function UltimoDiaDelMes(ByVal dtmFecha As Date)
Dim dateResult As Date, i as Integer
' Calcula el último día del mes
dateResult = DateSerial(Year(dtmFecha), Month(dtmFecha) + 1, 0)
' Mostramos en pantalla
Console.WriteLine("El último día del mes: " & dateResult)
' Recorremos el objeto Date hacia atrás para encontrar el
' último domingo
For i = 1 To 30
dateResult = dateResult.AddDays(-1)
If (dateResult.DayOfWeek = DayOfWeek.Sunday)
exit for
End if
Next
' Mostramos el último domingo
Console.WriteLine("El ultimo DOMINGO: " & dateResult)
' Aprovechamos el valor de i para indicar los días hasta final mes
Console.WriteLine("Hay " & i & " días hasta final de mes")
End Function
Luego la llamada sería simplemente así ya que hemos aprovechado la propia función para mostrar en pantalla el resultado.
Sub Main(args As String())
''el ultimo domingo fue el 26/07
Dim dtmFecha As Date = Today
UltimoDiaDelMes(dtmFecha)
End Sub
Si no puedes usar for, basta con el valor entero de la enumeración de los días de la semana.
Dim ultimoDia As Integer = Convert.ToInt32(dateResult.DayOfWeek)
La sentencia de arriba devuelve 0 si es Domingo, 1 si es Lunes, 2 si es Martes... de forma que ese valor numérico nos indica cuanto días hay desde el último día del mes hasta el domingo anterior.
Si vale 0 el último día del mes coincide que es Domingo, por tanto hay cero días. Si el último día del mes es Lunes = 1; entonces desde el último domingo hay 1 día hasta final de mes...
Así pues conociendo ese dato la fecha concreta del último Domíngo del més la puedes obtener así:
dateResult = dateResult.AddDays(-ultimoDia)