You say it's thursday today, but your code uses not today but tomorrow=Date.Now.AddDays(1)
.
Instead of the day-name which depends on the current culture, i would use the DayOfWeek-enum
:
Dim today = Date.Today
If today.DayOfWeek = DayOfWeek.Thursday Then
something(happens)
Else
something(happens)
End If