Funcion en Vb

[calixhh01]

Hola señores, recien empiezo con el visual y se me presenta este problema, lo que sucede es que como veran al final el msgBox me debe arrojar la suma de lo que habia insertado en las cajas de texto como String y que despues me he encargado de pasar a int, pero me arroja 0 para cualquier numero que ingrese. Gracias por su tiempo y sugerencias.
El codigo es el siguiente:


Module Module1

Function suma(ByRef a As Integer, ByRef b As Integer) As Integer
Dim resultado As Integer
Return resultado = a + b
End Function

Sub Main()
Dim cadena1 As String
cadena1 = InputBox("Ingrese el primer numero", "Mensaje del sistema", "", 500, 500)
Dim Valor1 As Integer
Valor1 = Integer.Parse(cadena1)
Dim cadena2 As String
cadena2 = InputBox("Ingrese el segundo valor", "Mensaje del sistema", "", 500, 500)
Dim Valor2 = Integer.Parse(cadena2)
Dim resultado As Integer = suma(Valor1, Valor2)
MsgBox("El valor de la suma es: " & resultado)
End Sub

End Module