AYUDA CON CODIGO VB 2010

[LORDSLING]

CUENTO CON DOS CAJAS DE TEXTO EN UNA SE INGRESA AÑO DE NACIMIENTO Y EN OTR H PARA HOMBRE Y M PARA MUJER.

SI ES MAYOR DE 18 AÑOS SI ES HOMBRE DEBE ARROJAR UN LABEL QUE DIGA "HOMBRE MAYOR DE EDAD SI NO HOMBRE MENOR DE EDAD"

SI ES MAYOR DE 18 AÑOS Y ES MUJER DEBE ARROJAR MUJER MAYOR DE EDAD SI NO MUJER MENOR DE EDAD.

ESTE ES MI CODIGO.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim RESULTADO As Integer
        Dim NUMERO As Integer
        Dim SEXO As String
        SEXO = Val(TextBox2.Text)

        NUMERO = Val(TextBox1.Text)
        RESULTADO = 2015 - NUMERO
        If RESULTADO >= 18 And SEXO = "H" Then
            Label1.Text = ("HOMBRE MAYOR DE EDAD")
        Else
            Label1.Text = ("HOMBRE MENOR DE EDAD")

        If RESULTADO >= 18 And SEXO = "M" Then
            Label1.Text = ("MUJER MAYOR DE EDAD")
        Else
            Label1.Text = ("MUJER MENOR DE EDAD")
        End If
        End If

[Mastermind]

Hola para pegar código en el foro guíate por esta explicación: https://www.aprenderaprogramar.com/foros/index.php?topic=1460.0

El problema que planteas no es complicado simplemente te hace falta un botón que el usuario introduzca los datos en la caja de texto y después al pulsar el botón se haga la comprobación y se muestre el resultado.

Lo puedes hacer siguiendo las explicaciones del curso https://www.aprenderaprogramar.com/index.php?option=com_content&view=category&id=37&Itemid=61, no es complicado

Saludos