Try something like this:

Function pwdValid(pwd As Variant) As Boolean
pwdValid = True
If Not Len(pwd) = 8 Then
pwdValid = False
Exit Function
End If
For i = 1 To Len(pwd)
Select Case i
Case 1, 2
If Not UCase(Mid(pwd, i, 1)) Like "*[A-Z]*" Then
pwdValid = False
Exit Function
End If
Case Else
If Not Mid(pwd, i, 1) Like "*[0-9]*" Then
pwdValid = False
Exit Function
End If
End Select
Next i
End Function

--
Dan


On Jun 16, 9:33*am, Igneshwara reddy
wrote:
Hi,

1) I have created a small macro where in it asks for my user ID when ever I
run this. I am not unable to run this macro.
2) If I am not giving the user ID in the prompt box then the macros should
end with the message as cancelled.
3) I need to set a format for the user id, it contains two alphabets and 6
numbers and I need to restrict to the format. For Ex: AA123456. I do not know
how to write the macros's for this format.

Kindly let me know how to do.

Range("C1").Select
* * ActiveCell.FormulaR1C1 = "Date"
* * Range("C2").Select = InputBox(Prompt:="Quickook")
* * If ID *= True Then
* *Range("c3").Select
* * If ID *= False Then
* * End
* * MsgBox "Cancelled"
End Sub

Regards,
Igneshwara reddy.