快速大小端数据互换怎么实现？

目前采用的方式是利用左右逻辑位移来实现
'令k为输入值，r为输出值
A=SHR(k,24)
B=SHR(k,8) And &HFF00&
C=SHL(k,8) And &HFF0000
D=SHL(k,24)
r=A Or B Or C Or D

尝试使用过内联汇编，但总是报错
//单独测试没有问题，循环体内使用报错
，目前猜测应该是VB6的优化对内联汇编的函数的无效优化(VB从设计上讲是内存相对安全的语言，他的代码优化是不考虑使用者用API内联汇编的这种骚操作的)
汇编代码如下：
mov ecx,[esp+4]
mov ah,[ecx]
mov al,[ecx+1]
shl eax,10h
mov ah,[ecx+2]
mov al,[ecx+3]
ret 8