Imports System

Public Module Module1

    Public Sub Main()

        Dim decNumber, intNumber

        decNumber = "12.34" 

        intNumber = CInt( decNumber) 

        Console.Writeline( intNumber )

​

End Sub

End Module