OK
Creo que puedes hacerlo utilizando el simbolo ^ (que significa que comience por) y con el $ (que significa que termine en), de tal forma que con ^1$ le dices que sea 1. Prueba con lo siguiente:
Código:
Dim Negativo as New TrueOleDBGrid80.Style
Negativo.BackColor=RGB(255,0,0)
Rejilla.Columns(24).AddRegexCellStyle 0, Negativo, "^1$"
--Saludos--