This program has several versions of a GetTwoNumbers function. These all return 2 Integers, either by using ByRef arguments or a container to store the result.
Module Module1
Sub GetTwoNumbersA(ByRef number1 As Integer, ByRef number2 As Integer)
' Part 1: use ByRef parameters.
number1 = 2
number2 = 3
End Sub
Function GetTwoNumbersB() As KeyValuePair(Of Integer, Integer)
' Part 2: return a KeyValuePair.
Return New KeyValuePair(Of Integer, Integer)(2, 3)
End Function
Function GetTwoNumbersC() As Tuple(Of Integer, Integer)
' Part 3: return a tuple.
Return New Tuple(Of Integer, Integer)(2, 3)
End Function
Sub Main()
' Part 4: test the functions.
Dim number1 As Integer
Dim number2 As Integer
GetTwoNumbersA(number1, number2)
Console.WriteLine($
"{number1} {number2}")
Dim result2 = GetTwoNumbersB()
Console.WriteLine($
"{result2.Key} {result2.Value}")
Dim result3 = GetTwoNumbersC()
Console.WriteLine($
"{result3.Item1} {result3.Item2}")
End Sub
End Module
2 3
2 3
2 3