Stelle A wird jweils angezeigt, Stelle B wäre nötig

Dann hat sich aber was an der ursprünglich beschriebenen Darstellung geändert; da war die Position A (h) gefragt.

Änderungen sind hervorgeben

Private Function TryParseFolderName(Folder As String, ByRef FolderInfo As FolderInfo) As Boolean
   
  Dim fi As FolderInfo
   
  With CreateObject("VBScript.RegExp")
    .Global = False
    .IgnoreCase = True
    .MultiLine = False
    .Pattern = "([^\\_]+?(\d+))_+([^\\_]+)_+([^\\_]+)_+(.+)"
    With .Execute(Folder)
      If .Count > 0 Then
        fi.Id = CLng(.Item(0).Submatches(1))
        fi.Status = .Item(0).Submatches(3)
        fi.FullName = .Item(0).Value
        FolderInfo = fi
        TryParseFolderName = True
      End If
    End With
  End With
   
End Function