Module Module1 Sub Main() Dim dblValue As Double Dim intValue As Integer dblValue = 1.2345678 intValue = dblValue Console.WriteLine(intValue) End SubEnd Module 1