Function DongleReadBlock(ByVal AccessLevel As Integer, ByVal Password As _
  String, ByVal BlockNumber As Integer) As Byte()
        Dim rev As Integer
        Dim UserPassByteArray As Byte() = System.Text.Encoding.Default.GetBytes( _
          Password)
        Dim buffer(255) As Byte
        DongleReadBlock = buffer 'For default
 
        Dim LC2_Handle As System.UInt32 'lc_handle_t = 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) _
                      '0=Admin  1=User  2=Authentification
                    If rev = LC_SUCCESS Then
                        rev = LC_read(LC2_Handle, BlockNumber, buffer) 'KILL 
                        ' Read
                        If rev = LC_SUCCESS Then
                            LC_close(LC2_Handle)
                            Return buffer
                        Else
                            LC_close(LC2_Handle)
                        End If
                    Else
                        LC_close(LC2_Handle)
                    End If
                Else
                    LC_close(LC2_Handle)
                End If
            Next i
        Catch ex As Exception
            frm_Main.WriteErrorString = "Dongle Error 3: " & ex.Message.ToString
            LC_close(LC2_Handle)
        End Try
 
        Dim ClearBuffer(255) As Byte 'Deb
        Return ClearBuffer
    End Function