Konverter String til Tal (macro)

Hej eksperter.

Jeg har denne macro kode:

___________________________________
Dim celle As String, nycelle As String, række As Long
    Dim Slut As Long, mellemRum As Byte, underStreg As Byte
    Slut = Range("A65536").End(xlUp).Row
    Application.ScreenUpdating = False
   
    'Does the GLOBE code cleaning
    For række = 2 To Slut
        celle = Cells(række, 1)
        underStreg = InStr(celle, "__")
        mellemRum = InStr(celle, " ")

        If underStreg > 0 And mellemRum > 0 Then
            nycelle = Mid(celle, underStreg + 2, mellemRum - (underStreg + 2))
            Cells(række, 1) = nycelle
           
        End If
    Next række
___________________________________

Mit problem er at nycelle er defineret som String og jeg skal egentlige bruge et tal (Long), hvordan konverterer jeg min nycelle til et tal inden jeg skriver vaerdien ind i min aktuelle celle - har proevet mange forskellige loesninger, men har endnu ikke kunne finde en der har fungeret (giver fejl), haaber I kan hjaelpe