[mrnooo2000]

كتبت لك هذه الدالة سريعا 
ستقوم بما تريد 

كود :

   Private Function MyRound(ByVal Num As String) As String
       Try
           Dim part As String = Num.Split(".")(1)
           If Val(part) < 1000 Then part = 1000
           Return Num.Split(".")(0) & "." & part
       Catch ex As Exception
           Return Num
       End Try
   
   End Function

مثال للاستخدام 

كود :

       MsgBox(MyRound("23.700"))