Private Function GetMAC() As String
Dim macAddresses As String = ""
For Each nic As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
If nic.OperationalStatus = OperationalStatus.Up Then
macAddresses += nic.GetPhysicalAddress().ToString()
Exit For
End If
Next
Return macAddresses
End Function
Dim str As String = GetMAC()
MsgBox(str)
str values comes as F406697228D3 now i want change this as F4-06-69-72-28-D3..?