try this:

If TypeName(ctl) = "Textbox" Then
If Left(ctl.Text, 2) = cmbdrive.text Then
.......
End If
End If

"Ayo" wrote:

Can anyone tell me what is wrong with this code. I keep getting "Object
doesn't support this property or method" error message and I can't figure out
wish object.

If TypeName(ctl) = "TextBox" And Left(ctl.Text, 2) = cmbDrive.Text Then