寻求最快解决方案

有两个Ulong的数L1和L2，需要将L1的第n位(bit)设置成L2的第m位(bit)。
比如L1为(binary)10101000010.....(共64位,Low ->High），L2为(binary)0101110001....（共64位Low ->High），设置L1的第3位（现在是1)为L2的第1位（现在是0)。
我写了一个算法，但是发现速度不快（用在加密算法里面），大部分时间消耗在判断上了。不知道各位能不能写出速度更快的代码，或者有其他优化技巧。以下是我写的算法，大家看看~~~期待着大家的回答。谢谢！

Private Const ULong_1 As ULong = CType(1, ULong) '全部是1的ULong
Public Sub SetBit()Sub SetBit(ByRef L1 as ULong,ByVal n As Integer, ByVal L2 As ULong, ByVal m As Integer)
        If (L2 And (ULong_1 << m)) = 0 Then
            L1 = L1 And Not (ULong_1 << n)
        Else
            L1 = L1 Or (ULong_1 << n)
        End If
End Sub

经过苦思冥想，问题解决：

    Sub SetBit()Sub SetBit(ByRef L1 As ULong, ByVal n As Integer, ByRef L2 As ULong, ByVal m As Integer)
        L2 = (L2 >> m) And CULng(&H1)
        L1 = L1 And Not (CULng(&H1 << n))
        L1 = L1 + (L2 << n)
    End Sub

现在执行1000000次也只需要31.25ms，速度已经达到要求了。
思路如下：
思路为把L2中的m那一位移到最右边，然后和1取AND，这样就把m这位取出来了。对于L1，我把n这一位设置为0，也就是AND 111111..0...111这样，111111..0...111来自1<<n然后取反。最后把L1中取得的那一位和L2 AND以后的值相加即可。