Private Function NextDay(ByVal day As DayOfWeek) As String 
        Try 
            Dim add As Integer = day - Now.DayOfWeek + 7 
            If Now.DayOfWeek = DayOfWeek.Sunday Then add = add - 7 
            Return Now.Date.AddDays(add).ToString("dd.MM.yyyy") 
        Catch ex As Exception 
            Throw ex 
        End Try 
    End Function

---------------
VB.NET macht Spaß!