If you convert your number to a Long, it will automatically drop the decimals. Example:
VB Code:
  1. Dim MyNum As Integer

  2. MyNum = 95.67

  3. MyNum = CInt(MyNum)

  4. 'MyNum now a whole number