Dim LC2_Handle As UInt32
Try
    For i As Integer = 0 To 255
        rev = LC_open(DongleDeveloperID, i, LC2_Handle)
        If rev = LC_SUCCESS Then
            rev = LC_passwd(LC2_Handle, AccessLevel, UserPassByteArray)
            If rev = LC_SUCCESS Then
                rev = LC_read(LC2_Handle, BlockNumber, buffer) 'KILL Read
                If rev = LC_SUCCESS Then
                    Return buffer
                End If
            End If
        End If
        LC_close(LC2_Handle)
    Next
Catch ex As Exception
    MsgBox("Dongle Error 3: " & ex.Message.ToString)
Finally
    If LC2_Handle <> 0 Then
        LC_close(LC2_Handle)
    End If
End Try