Illustrate a reason why you might want to pass a parameter by reference
Sub GoodPassByRef() Dim blnSuccess As Boolean Dim strName As String
strName = "java2s.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