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

Option explicit

Dim val, lastfour

val=inputbox("Enter any value : ")

lastfour=right(val,4)

msgbox("Last four characters in "&val&" is : "&lastfour)