Hola amigos, como estan

De nuevo recurro a ustedes para que me echen una mano, necesito sumar numeros en la facturacion, yo utilizo esta formula

Sheets("Gestion").Select
Range("F3").Value = Range("F3").Value + 1

Esto me va muy bien cuando sumo una unidad al numero actual, el problema lo tengo cuando delante van unos textos, ( ejemplo, PVR/ 324/ ) 

Espero que me puedan ayudar, gracias por anticipado

 

Sheets("Gestion").Select
p = Split(Range("F3").Value, "/")
p(1) = p(1) + 1
Range("F3") = Join(p, "/")

 

Hola, amigo Antoni, muchas gracias por tu ayuda, lo probare y te dire como me va.

Gracias de nuevo

Hola Antoni, tu codigo me a ido de maravilla, muchas gracias

TEMA RESUELTO