Visual Basic - Consulta

Buenos dias:

No me manejo mucho en visual basic, es por esto que tengo la siguiente pregunta.

Estoy intentando hacer un formulario en userform sencillo pero tengo dudas con el codigo. Lo que quiero hacer es lo siguiente.

Supongamos que yo tengo la siguiente direccion mac de un modem o router cualquiera 001DCE5874

Necesito que al ingresar una mac cualquiera me sume 2 al ultimom digito. Con el ejemplo anterior sila mac termina en digito 4 que me sume 2 y termine en 6, con la condicion que si por ejemplo termina en 8, debe quedar en 0 y no en 10 y que si termina en 9 debe terminar en 1 y no en 11.

La otra condicon es que si termina en una letra por ejemplo 001DCE587B, me debe sumar 2 letras tambien por lo cual si termina en letra B, debe quedar en una D, pero con la salvead de que como todas las mac llegan hasta la letra F, comience nuevamente desde la letra A. Por lo tanto si la mac termina en F, debe sumar 2 y quedar en B.

Y como la ultima letra comienza a correr desde la A nuevamente, el penultimo digito o letra tambien debe avanzar un lugar.

Les agradeceria enormemente que me ayudaran.. Lo hice en java y me funciona ok pero con visual no me resulta.

Muchas gracias

Por mas que lo intento hacer no me sale... espero que por lo menos me orienten... muchas gracias

saludos

A ver si es lo que necesitas
Dim X As String
Dim Letras(6)
X = InputBox("Ingrese un valor MAC") ' Aqui le cargas el valor por ejemplo de un textbox
Dim Ultimo As String
X = UCase(X) 'En caso de que se ingresen letras minusculas
Ultimo = Right(X, 1)
If IsNumeric(Ultimo) Then
Ultimo = Ultimo + 2
If Ultimo = 10 Then Ultimo = 0
If Ultimo = 11 Then Ultimo = 1
Nuevomac = Left(X, Len(X) - 1) & Ultimo
MsgBox (Nuevomac)
Else
Letras(1) = "A"
Letras(2) = "B"
Letras(3) = "C"
Letras(4) = "D"
Letras(5) = "E"
Letras(6) = "F"
Dim Indice As Integer
While Letras(Indice) <> Ultimo
Indice = Indice + 1
Wend
Indice = Indice + 2
If Indice = 7 Then Indice = 1
If Indice = 8 Then Indice = 2
Ultimo = Letras(Indice)
Nuevomac = Left(X, Len(X) - 1) & Ultimo
MsgBox (Nuevomac)
End If

Cabe aclarar que en ese código no se comprende el hecho de que el usuario puede teclear otra letra distinta a las mencionadas, pero eso lo resolves con if else

Muchas gracias por las aclaraciones, estoy enormemente agradecido
muchas gracias