Funktion som lägger till ett mellanslag i en sträng efter x tecken

Ibland lyckas även jag med att nå mina mål. Antar att det kan finnas sexigare sätt att lösa problemet på men detta fungerar för mig.

<%=funInsertCharacterFromBehind("12345623")%>
<p>

<% function funInsertCharacterFromBehind(myString)
varInsertString = ","
varChangeCharacterPos = 3
response.write("<br>My string = (" &myString &" / " &len(myString)&" tecken)<p>")
	for i = len(myString) to 0 step -varChangeCharacterPos		'Hoppar baklänges i steg tills strängen är slut
		if i < varChangeCharacterPos then						'Vid slutet av strängen
		varCut3 = left(myString, i)
		else													'Ej vid slutet av strängen
		varCut3 = mid(myString, i-varChangeCharacterPos+1, varChangeCharacterPos)
		end if
		varNewString = varCut3 &varInsertString &varNewString 	'Bygger den nya strängen 
	next 
funInsertCharacterFromBehind = left(varNewString,len(varNewString)-1)			'Klipper av de sista felaktiga tecknet
end function %>