Te valdria con un casting?es decir donde quieras obetener la parte enteras transformas el numero en integer asi:
Cita: Dim numero As Double = 30.120000000000001
Messagebox.Show(numero)
MessageBox.Show("AHORA SOLO EL 30")
Messagebox.Show(CType(numero, Integer))
Saludos