Visual Basic - leer tres numeros

Buenas agradeceria mucho la ayuda que me puedan prestar estoy como novato en la programacion aunque me parece bastante interesante tengo un problema que por mas que le doy no me corre debo tener algun error que no se cual es disculpen y agradeceria mucho su ayuda estoy trabajando con visual Basic 2008

Programa que lea tres numeros y me indique cual es el mayor
esto es lo que yo e echo pero no me funciona ayuda plis


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If Val(num1.Text) > Val(num2.Text) And Val(num1.Text) > Val(num3.Text) Then
result.Text = Val(num1.Text)
End If
If Val(num2.Text) > Val(num1.Text) And Val(num2.Text) > Val(num3.Text) Then
result.Text = Val(num2.Text)
End If
If Val(num3.Text) > Val(num1.Text) And Val(num3.Text) > Val(num2.Text) Then
result.Text = Val(num3.Text)
End If

End Sub

hasta aqui me quedo no se que mas hacer para que corraaa
gracias....

Lo he probaro con Visual Basic 6.0

Cuando dices que no funciona no especificas donde, cuando, como o en que casos NO funciona.

Seria de gran ayuda que especifiques las circustancias y el error si lo hay, porque he tenido que crear una prueba simple y me ha funcionado y mi primer impluso era pasar de ello. pero como esta vez no he pasado aqui tienes mi respuesta.


Esto me funciona para tres números diferentes pero tiene una pega y es en el caso de dos valores iguales, por ejemplo 3,5,5 aqui no funciona o los tres iguales tampoco.

Private Sub Button1_Click()
If Val(Num1.Text) > Val(Num2.Text) And Val(Num1.Text) > Val(Num3.Text) Then
Result.Text = Val(Num1.Text)
End If

If Val(Num2.Text) > Val(Num1.Text) And Val(Num2.Text) > Val(Num3.Text) Then
Result.Text = Val(Num2.Text)
End If

If Val(Num3.Text) > Val(Num1.Text) And Val(Num3.Text) > Val(Num2.Text) Then
Result.Text = Val(Num3.Text)
End If

Pero esto es algo más simple y funciona siempre

Private Sub Button1_Click()
Result.Text = 0
If Val(Result.Text) < Val(Num1.Text) Then Result.Text = Num1.Text
If Val(Result.Text) < Val(Num2.Text) Then Result.Text = Num2.Text
If Val(Result.Text) < Val(Num3.Text) Then Result.Text = Num3.Text
End Sub

Y si en lugar de 3 numeros fuesen 50 seria asi de simple

Private Sub Button1_Click()
Result.Text = 0
for a=1 to 50
If Val(Result.Text) < Val(Num(a).Text) Then Result.Text = Num(a).Text
next
End Sub

Saludos