Obtener número de la bios

Puedes utilizar WMI; por ejemplo:

Dim objWMI, objPlaca
Set objWMI = GetObject("WINMGMTS:")
Set objPlaca = objWMI.InstancesOf("Win32_BaseBoard").Item("Win32_BaseBoard.Tag=""Base Board""")
MsgBox "Fabricante: " & objPlaca.Manufacturer & vbCrLf & "Modelo: " & objPlaca.Product & vbCrLf & "Nº de serie: " & objPlaca.SerialNumber
Set objPlaca = Nothing
Set objWMI = Nothing

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic