Imports System

Public Module Module1

    Public Sub Main()

        Dim x As Short = 9

        Dim y As Integer = DirectCast(x, Integer)

        Console.WriteLine(y)

    End Sub

End Module