Pode postar (em formato compactado Zip, 7z ou rar) seum modelo/exemplo?

Na verdade a planilha é muito grande e tem outras pessoas acessando, basicamente eu só queria saber se tem algum erro no código que eu postei,
A ideia é:
Procurar o valor em uma coluna, igual ao procV, mais sera usado esta consulta em um form, quando eu digitar o codigo do cliente no textbox, vai aparecer nas Label ou Textbox POSTERIORES outras informações, TIPO nome, idade, sexo, endereço,cidade,etc.
E se este codigo não existir aparecera uma MSGbox "este codigo não existe, digite um codigo valido".
DESDE DE JÁ AGRADEÇO PELA AJUDA
ATÉ MAIS
OBRIGADO

Pelo trecho do codigo, há aparentemente uma inversão entre os if's e while
Experimente assim:

Private Sub btn_consulta_Click()
If txt_ = "" Then
MsgBox " DIGITE O CODIGO !!! "
txt_o.SetFocus
Exit Sub

Else
u = 3
While (Plan2.Cells(u, 1) <> txt_)
u = u + 1
If u > 100 Then
MsgBox "ESTE CODIGO NÃO EXISTE"
Exit Sub
txt_ = ""
Else
'NESTA PARTE VAI OUTRA PARTE DA PROGRAMAÇÃO
End If
Wend
End If
End Sub

Ou assim:

Private Sub btn_consulta_Click()
If txt_ = "" Then
    MsgBox " DIGITE O CODIGO !!! "
   txt_.SetFocus
   Exit Sub
End If
u = 3
While (Plan2.Cells(u, 1) <> txt_)
u = u + 1
If u > 100 Then
   MsgBox "ESTE CODIGO NÃO EXISTE"
   Exit Sub
   txt_ = ""
Else
   'NESTA PARTE VAI OUTRA PARTE DA PROGRAMAÇÃO
End If
Wend
[code][/code]End Sub

Boa noite ainda continuo tendo problema com o código, estou postando o código novamente para você me ajudar.
Private Sub btn_consulta_Click()

If txt_inf_pro.Text = "" Then
MsgBox " DIGITE O NUMERO DO INFORME !!! "
txt_inf_pro.SetFocus
Exit Sub

End If
u = 3
While (Plan2.Cells(u, 1) <> txt_inf_pro)
u = u + 1
' If txt_inf_pro.Text <> I Then
If u > 100 Then
MsgBox "ESTE INFORME NÃO EXISTE"
MsgBox "DIGITE UM INFORME VALIDO"

txt_inf_pro.Text = ""
txt_inf_pro.SetFocus

Exit Sub
Else
Worksheets("INFORME_REC").Select
Range("B40") = txt_inf_pro.Value
Me.lbl_cod_pro = Worksheets("INFORME_REC").Range("H40").Text
Me.lbl_os_pro = Worksheets("INFORME_REC").Range("N40").Text
Me.lbl_batch_pro = Worksheets("INFORME_REC").Range("T40").Text
Me.lbl_data_pro = Worksheets("INFORME_REC").Range("Z40").Text
txt_qtd_apro.SetFocus
End If

Wend
end sub

Até mais

Sómente pelo codigo sem uma planilha e uma pequena descriçao do problema encontrado fica dificil. Muitas vezes e a estrutura de seu arquivo que pode gerar algum "desconforto".
Não é necessario a planilha completa, mas um exemplo com poucos itens, porem que seja significativo da estrutura da mesma. Dados confidenciais ou que julque inapropriado ser divulgado, deve ser substituido por dados ficticios.