RandBetween for PowerPoint

[excelledsoftware]

I am making a powerpoint that presents the user with a problem from an array list. I want to be able to pull a random problem from the array and I like the RandBetween Function in Excel. I know there are otherways to do this but the RandBetween is so simple. How can I make the following work?

Sub PullRandom()

  Dim TestArray as Variant, RandNum as integer, xls as object

  TestArray = Array("1+1","2+2","3+3")
  set xls = createobject("Excel.application")
  RandNum = xls.worksheetfunction.RandBetween(lbound(TestArray), ubound(TestArray))
  
  debug.print RandNum
End Sub

Any idea on how to get this work would be very helpful. I know that I can already use the following to accomplish this but I would like to figure out the RandBetween

Code that works

    TotalProblems = UBound(TestArray) + 1
    z = Int(Rnd() * TotalProblems) + 1
    Debug.Print TestArray(z - 1)

Thanks in advance

[excelledsoftware]

Wow I feel rather silly. I played with the existing code a little bit and this works just fine.

z = Int(Rnd() * TotalProblems)

If TotalProblems = 3 then the rnd function will put out either 0,1 or 2.

Exactly what I need.