Variable from procedure to use in a sub

I want the procedure to select a random slide and pass it to a sub and as the show goes through the slides, it identifies the said slide.
MS Powerpoint 2019
Windows 10 home
screenshot attached

The order shown is my best attempt at showing the variable which changes on each slide.



I have a procedure that selects a random slide.
I have assigned that result a variable and then tried to use it in a sub that identifies slides but the variable WILL NOT remain the same through the slide show, which I need to happen.

I am using message boxes to show the values and have tried umpteen different ways and locations for msgBox's


Code is CURRENTLY as follows.
__________________________________________________________________

Code:

---

Public Function randomSlideNumber() As Integer


  Dim index
  Static intDJ As Integer
  Dim targetValues(1 To 29) As Integer


targetValues(1) = 1
targetValues(2) = 2
targetValues(3) = 3
targetValues(4) = 4
targetValues(5) = 5

 index = Int(5 * Rnd + 1)


randomSlideNumber = targetValues(index)
intDJ = randomSlideNumber
MsgBox ("Double Jeopary Slide Number is " & intDJ)
 
End Function

______________________________________________________________

Public Sub OnSlideShowPageChange()


    Dim i As Integer
        i = ActivePresentation.SlideShowWindow.View.CurrentShowPosition
            If i = 3 Then
              Exit Sub
                Else
                        Dim intDJ As Integer
                        intDJ = randomSlideNumber


            End If
MsgBox ("Slide No: " & i & Chr(13) _
        & "      intDJ: " & intDJ)


End Sub

---

thank you in advance