Spellofsea
a = InStr(1, CBOMNO.List(i), CBOMNO, vbTextCompare) If Not a Then. End If. Next i. If i = CBOMNO.ListCount Then. MsgBox "Enter a Valid Pin No.", vbInformation, "Error" End If. End Sub. Private Sub cbomno_KeyUp(KeyCode As Integer, Shift As Integer) Dim i As Integer. Dim a As Integer. Static j As Integer. If KeyCode = vbKeyBack Then ................
................
To fulfill the demand for quickly locating and searching documents.
It is intelligent file search solution for home and business.