tratamento de erro vb6

Boa noite amigos!!!

Estou com problema...e o seguinte... no text1.text está recebendo dados da serial

exemplo: 0,12

0,45

1,45

4,89

e quando os valores está recebendo neste formato acima ..o código abaixo funciona perfeitamente.....mas tem momento que aparece dados assim :

0488,

1489,2

-45-789-

-15,

quando o if abaixo lê esses dados o software dá erro e para de funcionar.

dim valor as double

dim valor1 as double

valor1= text1.text

valor=text2.text

If Text1.Text > valor And Text1.Text < valor1 Then

List1.AddItem "ok"

else

List2.AddItem "Nok"

End If

teria alguma forma de tratar esse erro....e fazer que o software não pare de funcionar?

-