請用簡單的語言翻譯下面的VB代碼信息。

* * *函數轉換(ByVal left value為long，ByVal lnumberofbitstoshift為long，ByVal ldirectiontoshift為dcshiftdirection)為long。

Const kscallname是字符串“transfer”

錯誤過程_錯誤

Dim LSHIFT長度

如果ldirectiontoshift然後向左移動，

LShift =左值*(2 lnnumberofbitstoshift)

其他人向右移動。

LShift =左值\(2 lnnumberofbitstoshift)

最後，如果

過程_退出:

過渡= LSHIFT

退出功能

過程_錯誤:

錯誤。錯誤數量，提高。Kscallname，description，err.helpfile，err.helpcontext出錯。

恢復過程_退出

結束功能