I would go along these lines:
CODE
Private Sub Command1_Click()
Dim number As Integer
number = 856 / 45 + 0.5
Text1.Text = number
End Sub
As long as you define the variable as an integer it shouldn't have decimal places
As for adding "0.5", that will make sure that the number will always round up, which you will need it to round up for a skill calculator
From my test it works so...