Imports System
Public Class BinaryToHexConversion_VB
Public Shared Function BinaryToHex(ByVal str As String) As String
Dim decimalNumber As Long = Convert.ToInt64(str, 2)
Return decimalNumber.ToString("x").ToUpper()
End Function
Public Shared Sub Main(ByVal args As String())
Dim binaryNumber As String = "111101001101"
Dim hex As String = BinaryToHex(binaryNumber)
Console.WriteLine(hex)
End Sub
End Class
' run:
'
' F4D
'