[عيد مبارك]

كود :

Function MyRound(num As Double) As Double
    Select Case (num - Fix(num))
        Case Is <= 0.25 : Return (Fix(num) + 0.25)
        Case Is <= 0.5 : Return (Fix(num) + 0.5)
        Case Is <= 0.75 : Return (Fix(num) + 0.75)
        Case Else : Return (Fix(num) + 1)
    End Select
End Function

---

كود :

TextBox1.Text = MyRound(Val(TextBox1.Text))