это должно сделать это ... просто добавьте дней, пока не наступит следующая среда
Public Function GetNextDayOfWeek(ByVal dow As DayOfWeek) As DateTime
Dim d = DateTime.Now.AddDays(1)
While d.DayOfWeek <> dow
d = d.AddDays(1)
End While
Return d
End Function