Select Case Prob [RESOLVED] thx p

[daveStudent]

I have the following code

 Dim KeyAscii As Integer
 KeyAscii = Asc(strPath.Chars(0))
Select Case KeyAscii
       Case KeyAscii = 67
           cDrive = cDrive + 1
            If bDriveC = False Then
                  intStartingY = intStartingY + 1
                  oSheet.Cells(intStartingY, 7).Value = strDriveLetter
                  bDriveC = True
             End If
             oSheet.Cells(intStartingY, 8).Value = cDrive
             intDriveLocation = intDriveLocation + 1
       Case KeyAscii = 68
            'similar to above code
       '.
       '.
       '.
       Case KeyAscii= 90
             'similar to above code

End Select 

i cant get the cases to be selected, i've tested with msgbox (KeyAscii) and am sure that the Ascii values are correct.

any help would be great

thanks