vb.net 2015 windows app ขอวิธีปัดเศษขึ้นในกรณีที่เกินห้า ถ้าจุดไม่เกิน 5 ให้เหมือนเดิม

Dim d As Double
        d = Convert.ToDouble(TextBox1.Text)

        If (d Mod 1) >= 0.5 Then ' หาเอาเศษมาเช็ค ค่ามากกว่าหรือเท่ากับ 0.5 หรือไม่
            TextBox2.Text = String.Format("{0:0.0}", System.Math.Ceiling(d)) ' ปัดเศษขึ้น
        Else ' หากค่าเศษอยู่ระหว่าง 0.0 - 0.4 ไม่ต้องปัดเศษ
            TextBox2.Text = String.Format("{0:0.0}", d)
        End If