Imports System

Public Module Module1

    Public Sub Main()

        Dim b1 As Byte = 13

        Dim b2 As Byte = 26

        Dim b3 As Byte = 125

        Dim b4 As Byte = 225

​

        Dim i As Integer = (CType(b1, Integer) + b2 + b3 + b4) \ 2

        Console.WriteLine(i)

    End Sub

End Module