أكبر من أصغر من صفر أو يساويه

Try
            Dim numb As Integer = TextBox1.Text ="نص"
            If numb > 0 Then
                Label1.Text = "نص"
            ElseIf numb < 0 Then
                Label1.Text = "سالب"
            Else
                Label1.Text = "صفر"
            End If
        Catch ex As Exception
            MsgBox("ذا عدد؟، متأكد؟")
        End Try