Bestellnummer 8-stellig nicht 4-stellig

Private Sub CommandButton5_Click()
Dim vNo As Variant
Dim iCounter As Integer
Dim sPath As String
On Error GoTo ERRORHANDLER
sPath = "Z:\Serverinhalt\WWS\Aufträge Md. 2\2005"
With Application.FileSearch
.Filename = "*.xls"
.SearchSubFolders = False
.LookIn = sPath
.Execute msoSortByFileName
If .FoundFiles.Count > 0 Then
vNo = Dir(.FoundFiles(.FoundFiles.Count))
Else
vNo = 0
End If
End With
With Range("D5")
.NumberFormat = "@"
.Value = Format(CInt(Left(vNo, 4)) + 1, "15010000")
End With
Exit Sub
ERRORHANDLER:
MsgBox "Sie müssen das Verzeichnis anpassen!"
End Sub