Uiuiuiuiui, clonando macs?
. Esto te da una Mac completa aleatoria:
Private Sub Form_Load()
Randomize
Dim Numero As String, Mac As String
For n = 0 To 5
Numero = Hex(Int(Rnd * 256))
Mac = Numero & Mac
Next
MsgBox Mac
End Sub
Y lo mismo pero separados cada par de dígitos por dos puntos:
Private Sub Form_Load()
Randomize
Dim Numero As String, Mac As String
For n = 0 To 5
Numero = Hex(Int(Rnd * 256))
Mac = Mac & ":" & Numero
Next
Mac = Right(Mac, 17)
MsgBox Mac
End Sub
Puedes enviar el par de dígitos metiendo la función sendkeys dentro del for .... next, sustituyendo la linea Mac = Numero & Mac por sendkeys(numero), si es lo que te interesa claro. Si tienes que enviarla entera, puedes poner el sendkeys(mac) después del next. Si quieres trabajar con los 6 bloques de dos caracteres, utiliza una matriz de 6 elementos y almacenalos ahi.
Saludos.