Thanks Norman and RBS!


"Sanjay" wrote in message
...
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