Option Strict On

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button1.Click



        Dim longNum As Long

        Dim intNum As Integer



        longNum = 12345

        intNum = longNum



        MsgBox(intNum)

    End Sub

End Class