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
'<<=============



---
Regards,
Norman


"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