Hilbert Transform code

I'm trying to separate a data signal of ~800Hz from a carrier wave which is
~2000Hz.  As both frequencies vary slightly over time I was hoping to use
envelope detection to strip off the carrier, my sample rate is 22560.

I've read about taking the Hilbert transform of the input signal and then
squaring this and adding it to the square of the input signal, before
finally taking a square root of the result to find the envelope.

i.e  envelope = sqr(( Hilbert_transfrom*
Hilbert_transfrom)+(org_sig*org_sig))

I'm writing the software in Visual Basic 6.0, but I'm really struggling to
convert the Hilbert transform from pure mathematics into code.

I would appreciate it if someone could possible help me in writing the
code.

Stuart