Insert a Comma in a String

' INSERT COMMA IN STRING

inString="020312181920"

strLen=len(inString)

xx=1

for x=0 to strLen -2
  inPart=mid(instring,xx,2)
  newString=newstring & inpart & ","
  xx=xx+2
  x=x+1
next

newstring = Left(newstring, Len(newstring) - 1)

Response.Write(inString & "")
Response.Write(newString & "")