Option Explicit

Private Sub Cambiar_Time(cadena As String)
On Error GoTo nError
    Time = Format(cadena, "hh:mm:ss AmPm")
    Exit Sub
nError:
  MsgBox "La hora introducida no es valida!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub

Private Sub cambiar_hora(cadena As String)
On Error GoTo nError
    Time = timeserial(cadena,minute(time),second(time))
    Exit Sub
nError:
  MsgBox "La hora introducida no es valida!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub

Private Sub cambiar_minutos(cadena As String)
On Error GoTo nError
    Time = timeserial(hour(time),cadena,second(time))
    Exit Sub
nError:
  MsgBox "Los minutos introducidos no son validos!!", vbCritical, "Error al actualizar la hora"
  Err = 0
End Sub


Private Sub CmdCambiarTime_Click()
    Cambiar_Time (Text1.Text)
End Sub

Private Sub CmdCambiarHora_Click()
    cambiar_hora(text2.text)
End Sub

Private Sub CmdCambiarMinutos_Click()
    cambiar_minutos(text3.text)
End Sub

Private Sub Form_Load()
    Text1.Text = "11:06:00"   'cambia la hora entera del sistema
    text2.text="12"   'cambia la hora
    text3.text="34"   'cambia los minutos
End Sub

Dim Segundos As String
Segundos = Second(Time)
If Len(Segundos) = 1 Then Segundos = "0" & Segundos   'añade un 0 cuando la longitud de los seguntos es un digito

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

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