Dim name As String = "####_xxx.jpg"
        Dim nummer As Integer = 3
 
        name = Replace(name, "####", nummer.ToString("d4"))

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov