Option Strict On

Public Module Module1

    Public Sub Main()

        Dim dbl As Double = 1.0

        Dim int As Integer = Integer.Parse(dbl.ToString())

    End Sub

End Module