private long m_lngMinValue = 0 - 9.22337203685478E+18;
private long m_lngMinValue = 0 - 9.22337203685478E+18;
private decimal m_curMaxValue = 922337203685478.0;
private decimal m_curMinValue = 0 - 922337203685478.0;
private int m_intMinValue = 0 - 2147483648L;
Dim vIn As Double = 0.0
Dim vOut As Decimal = Convert.ToDecimal(vIn)
Dim vIn As Double = 0.0
Dim vOut As Long = Convert.ToInt64(vIn)
Dim vIn As UInteger = 0
Dim vOut As Integer = Convert.ToInt32(vIn)
try above 3 conversion
try this link
http://www.convertdatatypes.com/Convert-UInteger-to-Integer-in-VB.net.html[
^]