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
