Dim GermanCultureInfo As Globalization.CultureInfo = New Globalization.CultureInfo("de-DE")
Return GermanCultureInfo.DateTimeFormat.GetDayName(DayOfWeek.Sunday)
The function of the solution is Obsolete by the way
DateTime.Now.ToString("dddd", new System.Globalization.CultureInfo("de-DE"))