The following code will always round up irrespective of the value
e.g. 5.1 becomes 6
7.9 becomes 8

Code:
Private Sub Command1_Click()
    Text2.Text = -Int(-Text2.Text)
End Sub
si_the_geek should be given credit for this, it helped me so I pass it on to help you.