Ficou assim:
Código: Selecionar todos
Private Sub ComboBox1_Change()
Dim sVall As Long
Dim linha As Long
Dim sLocaliza As Boolean
sLocaliza = False
If ComboBox1.Value = "" Then
TextBox1 = ""
'Sai da Rotina
Exit Sub
Else
sVall = ComboBox1.Value
linha = 2
While (Range("A" & linha) <> "")
If (Range("A" & linha) = sVall) And _
(Range("A" & linha) = sVall) Then TextBox1.Value = Range("B" & linha)
linha = linha + 1
Wend
'Transforma em verdadeiro se localizado
sLocaliza = True
'Sai da rotina
Exit Sub
End If
'Se Localizado Falso emite msg
If sLocaliza = False Then
MsgBox "Valor não encontrado"
TextBoxDestino = ""
End If
End Sub
Estou muito contente com sua colaboração, desde já agradeço.