Module Module1

    Sub Main()

        Dim Answer As Integer

        Answer = TheAdditionLife(1, 5)

        MsgBox(Answer, MsgBoxStyle.Critical)

    End Sub

    Function TheAdditionLife(Num1 As Integer, Num2 As Integer) As Single
        Dim Blob As New Random
        Dim Kek1 As Single = Blob.Next(1, 10000)
        Dim Kek2 As Single = Blob.Next(1, 10000)
        Dim Answer As Integer

        While True
            If (Kek1 - Kek2) = (Num1 + Num2) Then
                Answer = (Kek1 - Kek2)
                Exit While
            Else
                Kek1 = Blob.Next(1, 10000)
                Kek2 = Blob.Next(1, 10000)
                Console.WriteLine(Kek1 - Kek2)
            End If

        End While

        Return Answer

    End Function

End Module