سلام دوست عزیز :
Dim Text1 As Integer = TextBox1.Text
Math.Round(معدل, Text1)