Takılı olmayan belleği nasıl seçeceksiniz bilmiyorum ama aşağıdaki kod kontrol işlemini yapar.

On Error GoTo AccessTR_Hata

    ChDir "G:\"

    MsgBox "flash takılı"

AccessTR_Hata_Cikis:

    Exit Sub

AccessTR_Hata:

    If (Err.Number = 76) Then

        MsgBox ("lütfen flash belleği taktından sonra tamamı tıklayın")

    End If

    Resume AccessTR_Hata_Cikis