Visual Basic - funciones trigonometricas - es urgente .. gracias

Simplemente quiero calcular el seno, coseno, tangente ingresando los datos en grados ... y como ya saben estas funciones trabajan con radianes ....
Lo que hice es:

numero = Val(txtnumero)
radianes = numero * PI / 180 --> convierte a radianes
resultado = Cos(radianes)
MsgBox resultado

Pero el resultado me da incorrecto ... alguno sabria como se trabaja con grados para calcular estas funciones trigonometricas ... ? ... Muuuchas Graaacias !!!

Adriana.

intentale asi
Private Sub Command1_Click()
pi = 3.1416 'valor de pi
numero = Val(txtnumero)
radianes = numero * pi / 180 '--> convierte a radianes
resultado = Cos(radianes)
MsgBox resultado
End Sub