Photoshop Script Help

Hello I need help for mod a photoshop script for generate a texturee for XYtext the problem is I have the base texture =/ but is image instance o PSD here is a link of the texture for XYtext http://i45.photobucket.com/albums/f80/Shaden84/Basetext.jpg
I try to mod a photoshop script for generate the texture but dont work and dont look any similar to the base texture if someone can help I'll be realy thankfull

here is the script I mod atm but dont work right: Text Scrpt.vbs

Dim appRef
Set appRef = CreateObject( "Photoshop.Application" )
' Remember current unit settings and then set units to
' the value expected by this script
Dim originalRulerUnits
originalRulerUnits = appRef.Preferences.RulerUnits
appRef.Preferences.RulerUnits = 1 ' psPixels
' Create a new 512*512 pixel document and assign it to a variable.
Dim docRef
Dim artLayerRef
Dim textItemRef
dim rows(7)
rows(1)="ABCDEFGHIJKLM"
rows(2)="NOPQRSTUVWXYZ"
rows(3)="abcdefghijklm"
rows(4)="nopqrstuvwxyz"
rows(5)=""'|@$%^&*?!= "
rows(6)="0123456789/-+"
rows(7)="{}[]()<>;:,._"


dim fontname
fontname="Comics"

Set docRef = appRef.Documents.Add(512, 512, 72, "CP850 " & fontname, 2, 3, 1)
' Create a new art layer containing text
Dim colorObj
Set colorObj=CreateObject("Photoshop.SolidColor"
colorObj.RGB.Red=255
colorObj.RGB.Green=255
colorObj.RGB.Blue=255



' Set the contents of the text layer.
for i=1 to 18
for j=1 to 10
Set artLayerRef = docRef.ArtLayers.Add
artLayerRef.Kind = 2
Set textItemRef = artLayerRef.TextItem
' textItemRef.Font = fontname
textItemRef.Color=colorObj
textItemRef.Justification = 2
textItemRef.Font = "A Charming Font"
textItemRef.Size = 38
textItemRef.Contents = mid(rows(i),j,1)
textItemRef.Position = Array((j-1)*51.2+25,i*51.2-7)
next
next
' Restore unit settingPhotoshop CS3
appRef.Preferences.RulerUnits = originalRulerUnits