Must have PackageIO Yo may change the Status label to just a Label if you like or change Hex and Title ID Public Class Form1 Private FilePath As String = Nothing ___ Code: Function VerifyFile(ByVal FilePath As String) StatusLabel1.Text = "Verifying File..." Dim reader As New PackageIO.Reader(FilePath, Endian.Little, &H360) Dim TitleID As String = reader.ReadHexString(4) reader.Close() If TitleID = " " Then 'Title ID in between the " " like this "41560855" Return True Else Return False End If End Function