VBScript code in QTP to display first four characters in given value

Option explicit

Dim val, firstfour

val=inputbox("Enter any value : ")

firstfour=left(val,4)

msgbox("First four characters in "&val&" is : "&firstfour)