Как определить цвет дискеты с помощью VB?

Dim Palets As Long
 
Private Sub Form_Load()
    Palets = Int((5 * Rnd) + 1)
    If naZhat(Palets) = True Then
        MsgBox ("Цвет дискеты " + poSmotret)
    End If
End Sub
 
Function naZhat(p As Long)
    If p < 21 Then DriveA.ButtonPress = True
    naZhat = DriveA.Open
End Function
 
Function poSmotret()
Dim color(2) As String
 
    Glaz1.Open = True
    Glaz2.Open = False
    color(1) = Glaz1.View()
    Glaz1.Open = False
    Glaz2.Open = True
    color(2) = Glaz2.View()
    If color(1) = color(2) Then
        poSmotret = color(1)
        Exit Function
    Else
        Glaz1.Open = True
        Glaz2.Open = True
        On Error GoTo Test
            Do
            color(1) = Glaz1.View()
            color(2) = Glaz2.View()
            Loop While color(1) <> color(2)
        Exit Function
    End If
Test:
    Glaz1.Open = True
    If Glaz1.Open <> True Then
        Call MsgError
    End If
    Glaz2.Open = True
    If Glaz2.Open <> True Then
        Call MsgError
    End If
End Function
 
Private Sub MsgError()
    MsgBox ("Если вы не видите эту надпись, вам надо обратиться к врачу")
End Sub