Visual Basic para Aplicaciones - Comprobar primer caracter de una cadena

Qusiera crear una Macro para Word
que comprobase si el primer caracter de cada linea es 0 (cero),
y que en caso de no ser cero, borre esa línea.

O sea, mi pseudocódigo sería:

LineasTotales del documento activo = N
For i to N:
Read/Get Value.Line(i).Char(1) = meollo
If meollo <> 0 then
delete Line(i)
Next i

¿Qué método puedo utilizar para que Word lea la primera letra de cada línea
(y tome una acción según sea su valor)?

Nota: En el caso que me ocupa, las líneas están separadas por Enter y no por el ancho del documento.

if mid(meollo,1,1)="0" then

end if