Imports System
Public Module Module1
Public Sub Main()
Dim n As Integer = -95
Dim barray As Byte() = BitConverter.GetBytes(n)
For i As Integer = 0 To barray.Length - 1
Console.WriteLine(barray(i))
Next
End Sub
End Module
' run:
'
' 161
' 255
' 255
' 255
'