Увеличить значение MAC адреса на 1

'Form1
Private Sub Form_Load()
    MAC = "00-00-00-00-00-00"
    Text1.SelText = MAC & vbCrLf
    Call IncMAC
    Text1.SelText = MACinc & vbCrLf & vbCrLf
    
    MAC = "00-00-00-00-00-0F"
    Text1.SelText = MAC & vbCrLf
    Call IncMAC
    Text1.SelText = MACinc & vbCrLf & vbCrLf
    
    MAC = "00-00-00-00-00-FF"
    Text1.SelText = MAC & vbCrLf
    Call IncMAC
    Text1.SelText = MACinc & vbCrLf & vbCrLf
    
    MAC = "FF-FF-FF-FF-FF-FF"
    Text1.SelText = MAC & vbCrLf
    Call IncMAC
    Text1.SelText = MACinc
End Sub
'Модуль Public
Public MAC As String 'MAC
Public MACinc As String 'MAC+1
Public Sub IncMAC()
    MAC = MAC & "-" 'Добавлю разделитель, чтобы последний байт попал в массив
    MACArray = Split(MAC, "-") 'Получаю текстовый массив
    ovf = 1 'Переполнение и чтобы добавить первую единицу
    For i = 5 To 0 Step -1
        tmp = Val("&h" & MACArray(i)) + ovf 'Добавляю
        Select Case tmp
            Case 256 'Переполнение
                MACArray(i) = "00" 'Значение 00 в ячейку массива
                ovf = 1 'Запоминаю переполнение
            Case Else 'Нет переполнения
                MACArray(i) = Right("0" & Hex(tmp), 2) 'Значение в HEX в ячейку массива
                Exit For 'Дальше делать нечего
            End Select
    Next
    MACinc = ""
    For i = 0 To 5 'В переменную MACinc значение MAC+1
        MACinc = MACinc & MACArray(i)
        If i < 5 Then MACinc = MACinc & "-"
    Next
End Sub