cool. so I got it to to divide into that number, and if it does not divide into that number evenly, it would reduce the number so it does divide evenly: Dim ots As Long
ots = tbOTS.Text
If ots Mod 101 <> 0 Then
tbOTS.Text = ots - (ots Mod 101)
End If
I could now easily write another if statement to alert weather it divides evenly or not. Thanks for the help Guys!