VBScript code in QTP to display number of words in given sentence

Option explicit

Dim sentence, nw

sentence=inputbox("Enter any sentence : ")

nw=split(sentence," ")

msgbox("Number of words in given sentence is : "&ubound(nw)+1)