Function vvvv$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "^\d+"
    If .test(t) Then vvvv = Trim(.Replace(t, ""))
 End With
End Function

Sub test()
    Dim z, i&: z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
 With CreateObject("VBScript.RegExp"): .Pattern = "^\d+"
   For i = 1 To UBound(z)
    If .test(z(i, 1)) Then z(i, 1) = Trim(.Replace(z(i, 1), ""))
   Next
    Range("A1").Resize(UBound(z), UBound(z, 2)).Value = z
 End With
End Sub