Går detta att göra?
Jag har strängen:

a b c d e

med andra ord 1,2,3 och 4 mellanslag mellan bokstäverna

Strängen jag vill har ska se ut

a b  cnbsp;nbsp; dnbsp;nbsp;nbsp; e

och för att göra det hela lite enklare ska det helst funka med VB6, med andra ord referens till VBScript Regular Expressions 5.5

Tack på förhand

Om inte VB6 regex stöder callback argument som returnerar en ersättningssträng kan du inte göra det med ren regex.
I .NET och andra språk med stöd för callback funktion skulle jag använt ett enkelt mönster som " {2,}" och sedan ange en funktion som ska leverera ersättningssträngen.
Funktionens uppgift skulle vara att returnera n - 1   + mellanslag...

" \B" bör funka, matchar alla mellanslag som inte följs av en 'word boundary'. Byt ut dessa mot " ".

Tack ska ni ha, det uppskattas!