Skille tal fra text

Rem Koden anbringes under det pågældende Ark (Højreklik på Ark / Vis programkode)

Dim antalRækker As Long, ræk As Long, ptAdresse As String, nyAdresse As String, postNr As String, byNavn As String
Public Sub adSkilPostNrBy()
    antalRækker = ActiveCell.SpecialCells(xlLastCell).Row
   
    For ræk = 1 To antalRækker
        ptAdresse = Range("B" & ræk)
       
Rem Fjern DK -
        nyAdresse = Replace(ptAdresse, "DK - ", "")
         
Rem check om 4 første tegn er tal
        If IsNumeric(Left(nyAdresse, 4)) = True Then
            postNr = Left(nyAdresse, 4)
            byNavn = Trim(Mid(nyAdresse, 5))
           
            Range("A" & ræk).Select
            Selection.value = postNr
            Selection.NumberFormat = "0###"
            Range("B" & ræk) = byNavn
        End If
    Next ræk
End Sub

Kanon mange tak