VBA: REDIM Function?

[Jonnyabc]

Someone...I know someone...is bound to say it's bad practice to make a function declared as a particular variable type should remain that same variable type and is bad coding to do otherwise. However, I am curious if there is a way to do so...

The scenario is this: I created a RegEx function, but sometimes I want it to return Boolean TRUE/FALSE for if() statements and filters, other times, I may want it to actually return the value (if it is) found.

Thus far, the first part has been possible, but now the stumbling block is after I do:

objRegEx.Test(strValue)

If this criteria is TRUE, and my [optional] argument is also set to return the #x result, it will return the string.

I'm not necessarily saying I'm going that route, but I am curious if it is at least possible with REDIM or the like and how?


Thanks!

 

[ZVI]

The reason can be in declaring of the passed variable As String
See the difference in passing of variant variable X and string variable S to the function:

Sub Test()
  
  Dim S As String, x, ret
  
  ' It's Ok, returs boolean
  ret = MyRegEx("regex", x)
  Debug.Print "ret", ret, TypeName(ret)
  Debug.Print "x", x, TypeName(x)
  
  ' S is alwaus string because S is declared as string
  ret = MyRegEx("regex", S)
  Debug.Print "ret", ret, TypeName(ret)
  Debug.Print "S", S, TypeName(S)
  
End Sub

' Do nothing, just returns boolean - for debug only
Function MyRegEx(strValue As String, Optional ret) ' As Boolean
  With New RegExp
    ret = .Test(strValue)
  End With
  MyRegEx = ret
End Function

 

[ZVI]

For string to boolean conversion use CBool("StringValue"):
Debug.Print TypeName(CBool("TRUE"))