Imports System
Class RandomHexGenerator
Private Shared Function GenerateHex(ByVal length As Integer) As String
Const hexChars As String = "0123456789ABCDEF"
Dim rand As Random = New Random()
Dim hexArray As Char() = New Char(length - 1) {}
For i As Integer = 0 To length - 1
Dim index As Integer = rand.Next(16)
hexArray(i) = hexChars(index)
Next
Return New String(hexArray)
End Function
Public Shared Sub Main()
Dim length As Integer = 8
Dim hexNumber As String = GenerateHex(length)
Console.WriteLine("Random Hexadecimal Number: " & hexNumber)
End Sub
End Class
' run:
'
' Random Hexadecimal Number: 9D481802
'