Use CType to convert decimal and Decimal to byte : Type « Reflection « VB.Net Tutorial

1. VB.Net Tutorial
2. Reflection
3. Type

Option Strict On

Module Main
    Public Sub DecimalToS_Byte(argument As Decimal)
        Console.WriteLine(argument)
        Dim sByteValue As Object

        Try
            sByteValue = CType(argument, Byte)
        Catch ex As Exception
            sByteValue = ex.GetType().Name
        End Try
        Console.WriteLine(sByteValue )
    End Sub

    Public Sub Main( )
        DecimalToS_Byte(8d)
        DecimalToS_Byte(New Decimal(7, 0, 0, false, 3))
    End Sub
End Module