Automation Frameworks using QTP

[Abhilash]

Hello everyone,
I implemented a key word driven test using the vb script below

Code:

a=datatable.value("key",dtglobalsheet)
select case a
case "1" = login()
case "2" = bookaflight()
end select

in excel I created a column with name key and entered 1 and 2 into first two respectively.
I loaded the functions into resources. I got the desired results.
I want someone to explain me if this only way to implement a keyword driven test or there is a better way to achieve this.