Module Module1 Sub Main() Dim AnInt As Integer = 5 Dim ALong As Long = 7 ALong = AnInt 'causes compiler error when Option Strict On 'AnInt = ALong MsgBox(AnInt) End SubEnd Module