Help functions for insert/remove of "," in a vb like language

fsTusenAvDelareDecode.vb

//Denna funktion tar in en redan sträng
//som är kodad med tusenavgränsare och tar bort dem
//
//sTal = Det talet man ska göra om
function str fsTusenAvDelareDecode(str sTal)
begin
	//Variabler
	int iR
	int iLen
	str sKlar
	str sChar
	
	//Starvärden
	0->iR
	""->sKlar
	len(sTal)->iLen
	
	//Börja jobba
	while iR < iLen
	    //Ta ut ett tecken först
	    mid(sTal,(iR+1),1)->sChar
	    //Titta om det är kommatecken eller inte
	    ifl sChar = ","
	    	//Det är ett kommatecken, gör inget då
	    else
	    	//Det var ett "riktigt" tecken så ta med det
	    	sKlar&sChar->sKlar
	    endifl
		iR+1->iR
	wend
	sKlar->fsTusenAvDelareDecode
end

fsTusenAvDelareEncode.vb

//Denna funktion kommer att ta in ett tal och börja
//bakifrån och lägga in ett kommatecken efter 3 st tecken.
//
//sTal = Det talet man ska göra om
function str fsTusenAvDelareEncode(str sTal)
begin
	//Variabler
	str sKlar
	int iLen
	int iR
	int iTre
	
	//Startvärden
	0->iR
	1->iTre
	""->sKlar
	len(sTal)-> iLen
	
	//Let start doing some shit!
	while iR < iLen
		//Hämta ut tecken för tecken från strängen
		mid(sTal,(iLen-iR),1)&sKlar->sKlar
	
	    //Titta om iTre är 3 så vi ska börja om räkningen från 0
	    ifl iTre = 3
	    	//Börja med att lägga till ett kommatecken
	    	//Men kolla så att vi inte är på sista
	    	ifl iR <> (iLen-1)
	    		","&sKlar->sKlar
	    	endifl
	    	//Den var 3 så vi sätter den till 0 igen
	    	1->iTre
	    else
	       	//Fortsätt med att plusa på
	       	iTre+1->iTre
	    endifl
	    //Räknaren fortsätter vi att öka vilkorslöst
		iR+1->iR
	wend	
	//Nu är vi klar så returna den nya strängen
	sKlar->fsTusenAvDelareEncode
end