32bit to long?

Here's what I came up with :/
Anything quicker out there?

' from 4 bytes (8 bit * 4 bytes = 32 bit) to 32 bit unsigned long (blitz long is 64 bit though, but whatever)
Function bytes2long:Long(in$)		
	If Len(in) <> 32/8 err("invalid bytes2long input, need 4x8 bit bytes input.") ; Return
	Local first = in[0] Shl 24'  																	
	Local second = (in[2] * 256) + in[3]																
	Local result:Long = first + second																
	Return result																					
EndFunction