Как проверить съемный носитель на факт готовности

  Dim D() As IO.DriveInfo = IO.DriveInfo.GetDrives
        For Each DI As IO.DriveInfo In D
            If DI.DriveType = IO.DriveType.Removable Then
                On Error Resume Next
                Dim HSs() As String = IO.File.ReadAllLines("C:\Users\Public\base\BZ.txt")
                Me.ListBox1.Items.Clear()
                For Each file As String In _
           My.Computer.FileSystem.GetFiles(DI.Name, FileIO.SearchOption.SearchTopLevelOnly, "."
                    Dim RD As FileStream = New FileStream(foundImage, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
                    RD = New FileStream(foundImage, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
                    Dim md5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider
                    md5.ComputeHash(RD)
                    RD.Close()
                    Dim hash As Byte() = md5.Hash
                    Dim SB As StringBuilder = New StringBuilder
                    Dim HB As Byte
                    For Each HB In hash
                        SB.Append(String.Format("{0:X1}", HB))
                    Next
                    For Each Hsm As String In HSs
                        If SB.ToString = Hsm Then
                            ListBox1.Items.Add(file)
                        Else
 
                        End If
                    Next
                Next
            End If
        Next

If DI.DriveType = IO.DriveType.Removable And DI.IsReady Then