using functions

[Sanjay]

Hi,

I'm trying to undertand hpw to return a value from another function, when I
run the mtest function I receive an error for the MsgBox (IsValidType) how I
can I return a value?

Thanks!


Private Function IsValidType(ByVal sString) As String
If LCase(sString) = "standard" Then
IsValidType = "SomethingA"
Else
IsValidType = "SomethingB"
End If
End Function


Sub mtest()
myvar = "standarda"
IsValidType myvar
MsgBox (IsValidType)
End Sub

 

[Norman Jones]

Hi Sanjay,

Try something like:

'=============>>
Public Sub mTest()
Dim res As Variant
Dim myVar As String

myVar = "standarda"
res = IsValidType(myVar)
MsgBox res
End Sub

'-------------->>
Private Function IsValidType(ByVal sString) As String
If LCase(sString) = "standard" Then
IsValidType = "SomethingA"
Else
IsValidType = "SomethingB"
End If
End Function
'<<=============

 

[RB Smissaert]

Try this:

Private Function IsValidType(sString As String) As String

If LCase(sString) = "standard" Then
IsValidType = "SomethingA"
Else
IsValidType = "SomethingB"
End If

End Function

Sub mtest()

Dim myvar As String

myvar = "standarda"

MsgBox IsValidType(myvar)

End Sub

Best is to put Option Explicit at the top of every module as that will force
you to declare
your variables. And do in the VBE: Tools, Options, Editor, tick Require
variable declaration.

RBS

 

[Sanjay]

Thanks Norman and RBS!