Número positivo o negativo usando if en vb

Public Class Valor

    Private Sub CmdAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdAceptar.Click
        Dim numero As Integer
        numero = Val(TextBox2.Text)
        If numero > 0 Then
            txtResultado.Text = "El número es positivo"
        Else
            txtResultado.Text = "El número es negativo"
        End If
    End Sub

    Private Sub cmdCerrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCerrar.Click
        Me.Close()
    End Sub
End Class


click aquí para descargar