Visual Basic - no repetir el codigo

tengo este codigo en un modulo:

Public Sub codigo()
Dim a As TextBox
Dim b As TextBox
Dim c As ComboBox
Ssql = "select * from ingredientes1"
Rcs.Open Ssql, Cnn
Do While Not Rcs.EOF
If c.Text = Rcs!descripcion Then
a.Text = Rcs!unidad
b.Text = Rcs!pu
End If
Rcs.MoveNext
Loop
Rcs.Close
End Sub

y este codigo en un combo1:

Private Sub Combo1_LostFocus()
Dim a As TextBox
Dim b As TextBox
Dim c As ComboBox
a = Text2.Text
b = Text3.Text
c = Combo1.Text
codigo
end
pero al correrlo me sale un error, no corre
hago esto para no repetir el codigo en 10 combos que tengo, hay alguna manera? en que estoy fallando? de antemano gracias por su ayuda

la verdad q eso que haces no tiene mucho sentido, o yo almenos no se lo veo. ¿¿puedes explicar q tiene que hacer el programa cuando le das al combo a ver si le encontramos una solucion??
Saludos

La solución es muy sencilla, pasale al procedimiento codigo los controles como parametros, ya que las variables a, b y c están declaradas en 2 procedimientos diferentes y por lo tanto apuntan a objetos diferentes.