[Rabeea Qbaha]

ممكن يكون هناك حل ابسط من هذا الحل 
على كل حال هذا يقوم بالمطلوب:

كود :

       Dim X As String = TextBox1.Text
       Dim y As Char = X(X.Length - 1)

       Dim number As String = X.Remove(X.Length - 1)
       Dim last_num As Integer
       Dim full_number As Integer

       If Val(y) < 5 Then
           last_num = 0
           full_number = number & last_num
       ElseIf Val(y) > 5 Then
           Dim o As Integer = 10 - Val(y)
           full_number = Val(X) + o
       ElseIf Val(y) > 5 Then
           full_number = TextBox1.Text
       End If
       TextBox2.Text = full_number
   End Sub