Visual Basic - Funcion de Decimal

alguien sabe si hay alguna funcion que se pueda sacar la parte entera
, sin decimal es decir que un valor sea 30.6
saque solo el 30

Prueba con éste ejemplo :

Private Sub Command1_Click()
Dim total
total = Int(Text1.Text)
Text2.Text = Format(total, "#")
End Sub

saludos....