crear funcion

Estoy desarrollando un proyecto que permita determinar el mayor de tres
numeros ingresados por teclado, lo estoy desarrollando en visual basic de
visual studio 2005, el problema es que el ejercicio es de visual basic
6.0,
me piden crear una funcion

de nombre: ValidaEntradaN
de Tipo: Funcion
de Alcance: Publico

El codigo de la funcion es el siguiente:

Public Function Valida EntradaN(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
End Function

Tambien tengo problemas al codificar en este textbox

Private Sub TextBoxNumero1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxNumero1.KeyPress
i = ValidaEntradaN(KeyAscii)
End Sub

Que tengo que agregar para que visual studio 2005 me acepte estos codigos,
seria de gran ayuda sus consejos y correcciones, gracias.