Function to calculate the length of characters in a word -

Function countChar(st)/*Vbscript Function
charLength = Length(st)
End Function

Assume above function countChar is written in VBscript, now 
you are getting the text from the Application and calling 
the Vbscript file and gets the length of the characters in 
the word

Dim textValue
textValue= Browser("Browser Name").Page("Page Name").Frame
("mainFrame_5").WebElement("12").GetROProperty("innertext")

executefile "\*.*\countChar(textValue)" /*calling the 
Vbscript file
textlength = charLength /*getting the text length

syntax for function
fun <fun name>(arg1,arg2)
<statements>
end
for example if u want to call mul(3,6)
call mul(3,6)
function mul(a,b)
mul=a*b
end

its as simple as calling vbs functions..

first diclare veriable in note pade and save in vbs file
after that go to new qtp program 
use the publec ffunction
end function satement  go to test resoruses and add 
librarey file run the frogram