Visual Basic - borra lineas

Amigos:2 consultas
-quiero borra todas las lienas de un textbox que esten en blanco
-Quiero borrar todas las lineas que sean diferentes el primer caracter a 0 y 1

gracias

No entiendo:
¿Borrar las lineas de un textbox que estén en blanco?. Si están en blanco es que no tienen nada. ¿Entonces qué es lo que quieres borrar?
En cuanto a lo segundo:
If Left (Text1.Text, 1) = 0 Or Left(Text1.Text, 1) = 1 Then Text1.Text = ""
--- Borrado

Gracias por el apoyo, yo creo que no me explique bien , aqui va de nuevo
El textbox lo tengo asi:

123456789101112
123455678995556

558989986569998
445454545545454

LA tercer linea esta en blanco

Hola Julio...

Supongo que estás usando un textbox con la propiedad "multiline" habilitada.
Costó, pero lo logré... acá tenés el código que hace lo que necesitás

TextBox.Text = BorrarLineas (TextBox.Text)

Private Function BorrarLineas(cadena As String) As String
Dim base, fin As Integer
Dim dd As String

base = 1
fin = 0
dd = ""

Do While fin <= Len(cadena)
fin = InStr(base, cadena, vbCrLf)
If fin = 0 Then Exit Do
If fin <> base Then
dd = dd & Mid(cadena, base, fin - base) & vbCrLf
End If
base = fin + 2
Loop

BorrarLineas = dd
End Function

Espero que te sirva SALUDOS!!!!!!!