Try this:
Public Function RoundToLeft(d As Double, digits As Integer) As Double
Dim rounding As Double = Math.Pow(10.0, digits)
Return Math.Round(d / rounding, 0, MidpointRounding.AwayFromZero) * rounding
End Function
If you call it:
Console.WriteLine(RoundToLeft(d, 0)) -> 16714
Console.WriteLine(RoundToLeft(d, 1)) -> 16710
Console.WriteLine(RoundToLeft(d, 2)) -> 16700
Console.WriteLine(RoundToLeft(d, 3)) -> 17000
Console.WriteLine(RoundToLeft(d, 4)) -> 20000