Código:
If (Val(TextBox.Text) <> 0) Then
TextBox.Text = Val(TextBox.Text)- (Val(TextBox.Text)Mod 1) + 1
End If
Tenemos una condicionante que evalua que el TextBox no tenga residuo al ser dividida entre 1, si tiene residuo es que tiene una parte fraccionaria y si eso sucede TextBox sera igual a TextBox menos el residuo que resulte de la división entre TextBox y 1, más 1.
