Yolu gösterdim işte size. try catch ile yapabilirsiniz.

    Try
        Dim veri As Integer = CType(textBox1.Text,int)
        listbox1.Items.Add(veri.ToString())
    Catch ex As Exception
        listbox2.Items.add(textBox1.Text)
    End Try

Syntax hatası yapmış olabilirim. Benim dilim c#. CType ile dönüşüm böyle sanırım tam emin değilim onu bi araştır istersen , olmaz ise.