I was not able to find any vb code on the net to read the physical address "Mac address" so I wrote the following code I hope this saves someone time in getting the Mac address.
Imports Microsoft.SPOT.Net.NetworkInformation
'***** Get Mac Address*********************************
Dim b() As Byte = Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces(0).PhysicalAddress
Dim ma As String = String.Empty
For i As Integer = 0 To b.Length - 1
ma = ma & b(i).ToString("X2")
If i <> b.Length - 1 Then
ma = ma & "-"
End If
Next
Debug.Print("My Mac address is :" & ma)