Macro - rens celle

Hej Eksperter

Jeg har et ugentligt dataark hvor jeg skal starte med at rense vaerdierne i kolonne A. Celle A er en lang "tekst" hvor jeg kun skal bruge en del af indholdet. Typisk ser den saaledes ud:

__15026598 / 354654315452154643135 / gjh.

Jeg er kun interesseret i "15026598" det vil sige efter "__" og foer det foerste mellemrum - tallet jeg vil have har forskellig laengde men saa jeg skal bruge "__" og "mellmerum" til at udskille mit nummer.
Antal linier er ogsaa forskellige saa jeg skal bruge en lykke der stopper naar der ikke er mere data i A konlonnen.
Endeligt ville det vaere super hvis den kunne overskrive kolonne A med mit oenskede tal.

Har fundet denne stump kode paa eksperten, men jeg kna ikke komme i maal med den:


Dim Slut As Long, I  As Long, DitArray
Slut = Range("A65536").End(xlUp).Row
DitArray = Range("A3:A" & Slut)
For I = 1 To Slut
    If Left(DitArray(I, 1), 1) = "+" Then
        DitArray(I, 1) = Mid(DitArray(I, 1), 5, Len(DitArray(I, 1)) - 7)
    End If
Next
Range("A1:A" & Slut) = DitArray


Haaber I kan hjaelpe?