Whats wrong with this code? Msgbox

[Moses420ca]

private Sub Drive1_Change()
on error GoTo nodisk
Dir1.Path = Drive1.Drive
Text3.Text = Drive1.Drive

nodisk: MsgBox "There is no disk in that Drive", vbRetryCancel, "a Phrozen error"

If nodisk = vbRetry then
Dir1.Path = Drive1.Drive
Text3.Text = Drive1.Drive
else
Drive1.Drive = "c:\"
Dir1.Path = "c:\"
Text3.Text = "c:\"
End If
End Sub




Thankz, Drew
[email protected]?SUBJECT=I Love Your Stuff