El problema se debe a que debes de validar si existen valores luego de aplicar el filtro
algo asi:
Código HTML:
if obj.GetDataByArticulo(Me.ComboBox1.Text.ToString).Items.Count>0 then
Me.TextBox1.Text = obj.GetDataByArticulo(Me.ComboBox1.Text.ToString). Item(0).ARTICULO.ToString
endif
Como no encuentra datos te retorna el error de index out of range
saludos