Macro para extraer datos a ListBox al escanear

En la Hoja1 está mi Base de Datos con 4 columnas (A, B, C y, D). Tengo un Userform1 con un ListBox1, un TextBox1. Necesito escanear un código en el TextBox1 y en automático busque en la columna A, al hallar el código cargue las 4 columnas de todas las filas referente a ese código.