Hi Phil,
As i don't have a floppy drive right now, however you can try to use
DriveInfo type using with its IsReady property as follows:
'---------------------------
Imports System.IO
Dim drive As New DriveInfo("a:")
If drive.IsReady = True Then
' Then floppy is ready
Else
' Floppy is not ready
End If
'--------------------------
Hope this helps,
Onur Güzel