593 Function cstr2vb(lpStr As Long) As String
598     If lpStr = 0 Then Exit Function
600     length = lstrlen(lpStr)
604     CopyMemory buf(1), ByVal lpStr, length
611     Dim lpStr As Long  variable
612     lpStr = cs_strerror(e)
613     err2str = cstr2vb(lpStr)
617     Dim lpStr As Long  variable
618     lpStr = cs_reg_name(hEngine, regID)
619     regName = cstr2vb(lpStr)
624     Dim lpStr As Long  variable
625     lpStr = cs_insn_name(hEngine, insnID)
626     insnName = cstr2vb(lpStr)
631     Dim lpStr As Long  variable
632     lpStr = cs_group_name(hEngine, groupID)
633     groupName = cstr2vb(lpStr)