Dim resultSite As String = appEnums.OrderBy(Function(kvp) kvp.Key) .SkipWhile(Function(kvp) kvp.Key <= startSite) .Where(Function(kvp) kvp.Key <> mainSite AndAlso kvp.Key <> returnSite) .Select(Function(kvp) kvp.Value).FirstOrDefault()
Preview:
downloadDownload PNG
downloadDownload JPEG
downloadDownload SVG
Tip: You can change the style, width & colours of the snippet with the inspect tool before clicking Download!
Click to optimize width for Twitter