Qbasic to find Volume of box using Function

DECLARE FUNCTION VOL ( L, B, H )
CLS
INPUT "Enter length"; L
INPUT "Enter breadth"; B
INPUT "Enter height"; H
PRINT "Volume of box"; VOL ( L, B, H )
END

FUNCTION VOL ( L, B, H )
VOL = L * B * H
END FUNCTION