tratamento de erro vb6

[Fabio Betiol Betiol 0]

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?

•