Evitar error al introducir un texto fuera de la lista de un combobox en vba

Puedes usar el control de errores de VB. Es sencillo pero muy peligroso; me explico.

La instrucción "On error resume next" desactiva el control de errores de VB y permite al programador controlarlos.

Por otro lado "On error goto 0" vuelve a activar el control de errores de VB y el programador se despreocupa.

¿Por qué este rollo? Sencillo, si desactivas el control de errores y no lo vuelves a activar tu programa puede ejecutar código erróneo.

MUY IMPORTANTE: No olvidarse que el programa siempre tiene que devolver el control al VB.

Dicho lo anterior yo pondría un código como el siguiente:

Private Sub Combobox1_Change()
Dim mercaderías As String
Set RANG = Sheets("HOJA DINÁMICA").Range("A5:G500")
' Controlaremos los errores por programa
On Error Resume Next
COD = Application.WorksheetFunction.VLookup(Combobox1, RANG, 2, False)
If Err = 1004 Then
MsgBox "ERROR: El valor de la lista 2 no es válido"
On Error GoTo 0 ' No olvidar que siempre hay que devolver el control al VB
Exit Sub
End If
If Err <> 0 Then ' Es otro error distinto del 1004
MsgBox "ERROR no controlado: " & Error$
On Error GoTo 0 ' No olvidar que siempre hay que devolver el control al VB
Exit Sub
End If
' Si llega hasta aquí es porque "ERR=0" lo que significa que no hay error.
SALDO = Application.WorksheetFunction.VLookup(Combobox1, RANG, 3, False)
If Err = 1004 Then
MsgBox "ERROR: El valor de la lista 3 no es válido"
On Error GoTo 0 ' No olvidar que siempre hay que devolver el control al VB
Exit Sub
End If
If Err <> 0 Then ' Es otro error distinto del 1004
MsgBox "ERROR no controlado: " & Error$
On Error GoTo 0 ' No olvidar que siempre hay que devolver el control al VB
Exit Sub
End If
' Si pasa por aquí es porque los dos controles anteriores estaban bien.
' Devolvemos el control de errores al VB (insisto, no olvidar nunca)
On Error GoTo 0
TextBox2 = COD
TextBox3 = SALDO
End Sub