Use same value for a variable in a sub

[kelly mort]

I have this function to randomly generate certain numbers. Then I am calling for its verification with another Sub. And display an alert. Then I found out that if there is a match, instead of the alert showing me the value for the match, it goes on to generate a new set of numbers from the random function.

The verification code

Sub TestMatch ()
If ReturnPin Mod 1111 = 0 Then
        MsgBox ReturnPin
End If
End Sub

The randomly generated code

Function ReturnPin() As String
    Dim i As Integer, i2 As Integer
    Randomize
    i = Rnd * 10
    i2 = Rnd * 9
    Select Case i
        Case 10
            i = Rnd * 6
            ReturnPin = i & i + 1 & i + 2 & i + 3
        Case Else
            ReturnPin = i & i & i2 & i2
    End Select
End Function

Now what I need is to maintain the same variable value used for the if statement as the MsgBox alert.

Can someone pull it out for me?

 

[AlphaFrog]

[color=darkblue]Sub[/color] TestMatch()
    [color=darkblue]Dim[/color] x
    x = ReturnPin
    [color=darkblue]If[/color] x Mod 1111 = 0 [color=darkblue]Then[/color]
            MsgBox x
    [color=darkblue]End[/color] [color=darkblue]If[/color]
End [color=darkblue]Sub[/color]

 

[kelly mort]

[COLOR=darkblue]Sub[/COLOR] TestMatch()
    [COLOR=darkblue]Dim[/COLOR] x
    x = ReturnPin
    [COLOR=darkblue]If[/COLOR] x Mod 1111 = 0 [COLOR=darkblue]Then[/COLOR]
            MsgBox x
    [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

Thanks
This got me thinking

Why didn't the x call the ReturnPin again?

Because initially I was thinking of something like "Static" a little bit of insight will be great

 

[Rick Rothstein]

I have this function to randomly generate certain numbers.

You probably should have asked this question in your other thread ("generate 4 - digits pin of same characters or digits"). Anyway, I posted code over there which eliminate a PIN where all the digits are the same from being generated, hence, you would not need the test you are looking to implement here. To save you and other reader's of this thread, here is the function I posted at the other thread...

Function ReturnPin() As String
  Dim i As Integer, i2 As Integer
  i = [RANDBETWEEN(0,10)]
  If i < 10 Then i2 = Evaluate("MID(SUBSTITUTE(""0123456789""," & i & ",""""),RANDBETWEEN(1,9),1)")
  ReturnPin = Evaluate("IF(" & i & "<10,TEXT(" & i & i & i2 & i2 & ",""0000""),MID(""0123456789"",RANDBETWEEN(1,6),4))")
End Function

 

[AlphaFrog]

Why would x call ReturnPin again? ReturnPin is only called when it's explicitly listed in the code, and it only listed once. I think you're overthinking this.

 

[kelly mort]

Why would x call ReturnPin again? ReturnPin is only called when it's explicitly listed in the code, and it only listed once. I think you're overthinking this.

Hahaha sure. I am doing a bit of over thinking. I am now adapting to certain stuffs

 

[kelly mort]

You probably should have asked this question in your other thread ("generate 4 - digits pin of same characters or digits"). Anyway, I posted code over there which eliminate a PIN where all the digits are the same from being generated, hence, you would not need the test you are looking to implement here. To save you and other reader's of this thread, here is the function I posted at the other thread...

Function ReturnPin() As String
  Dim i As Integer, i2 As Integer
  i = [RANDBETWEEN(0,10)]
  If i < 10 Then i2 = Evaluate("MID(SUBSTITUTE(""0123456789""," & i & ",""""),RANDBETWEEN(1,9),1)")
  ReturnPin = Evaluate("IF(" & i & "<10,TEXT(" & i & i & i2 & i2 & ",""0000""),MID(""0123456789"",RANDBETWEEN(1,6),4))")
End Function

I understand what you are saying. However I want all those pins generated. Because each class of pin has got its own function in my universe.

I really appreciate your concerns