Sub GoodPassByRef()
Dim blnSuccess As Boolean
Dim strName As String
strName = "rntsoft.com"
blnSuccess = GoodFunc(strName)
Debug.Print blnSuccess
End Sub
Function GoodFunc(strName As String)
If Len(strName) Then
strName = UCase$(strName)
GoodFunc = True
Else
GoodFunc = False
End If
End Function