Dim dblTal As Double
dblTal = Text1.Text
dblTal = Round(dblTal, 0)
Text2.Text = dblTal
If Text1.Text > Text2.Text Then
Text2.Text = Val(Text2.Text) + Val("1")
End If