Function Statement
āĻāĻāĻāĻŋ āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻžāĻāĻĒ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻāĻāĻāĻŋ āĻāĻā§āĻ¸āĻĒā§āĻ°ā§āĻļāĻ¨ āĻšāĻŋāĻ¸ā§āĻŦā§ āĻŦā§āĻ¯āĻŦāĻšā§āĻ¤ āĻ¸āĻžāĻŦāĻ°ā§āĻāĻŋāĻ¨ āĻ¨āĻŋāĻ°ā§āĻ§āĻžāĻ°āĻŖ āĻāĻ°āĻž āĻšā§āĨ¤
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ° āĻĻā§āĻā§āĻ¨
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°:
āĻ¸āĻŋāĻ¨āĻā§āĻ¯āĻžāĻā§āĻ¸
Function Name[(VarName1 [As Type][, VarName2 [As Type][,...]]]) [As Type]
āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻ āĻŦā§āĻ˛āĻ
[Exit Function]
āĻ¸ā§āĻā§āĻāĻŽā§āĻ¨ā§āĻ āĻŦā§āĻ˛āĻ
End Function
āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°
āĻ¨āĻžāĻŽ: āĻĢāĻžāĻāĻļāĻ¨ āĻĻā§āĻŦāĻžāĻ°āĻž āĻĒā§āĻ°āĻĻāĻžāĻ¨āĻā§āĻ¤ āĻŽāĻžāĻ¨ āĻ§āĻžāĻ°āĻŖ āĻāĻ°āĻžāĻ° āĻāĻ¨ā§āĻ¯ āĻ¸āĻžāĻŦāĻ°ā§āĻāĻŋāĻ¨ā§āĻ° āĻ¨āĻžāĻŽāĨ¤
āĻ¸āĻžāĻŦāĻ°ā§āĻāĻŋāĻ¨ā§ āĻĒā§āĻ°ā§āĻ°āĻŋāĻ¤ āĻšāĻŦā§ āĻāĻŽāĻ¨ VarName: āĻĒā§āĻ¯āĻžāĻ°āĻžāĻŽāĻŋāĻāĻžāĻ°āĨ¤
āĻāĻžāĻāĻĒ: āĻāĻžāĻāĻĒ-āĻĄāĻŋāĻā§āĻ˛ā§ā§āĻžāĻ°ā§āĻļāĻ¨ āĻā§āĻā§āĻžāĻ°ā§āĻĄāĨ¤
āĻāĻĻāĻžāĻšāĻ°āĻŖ:
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
For siStep = 0 to 10 REM Fill array with test data
sListArray(siStep) = chr$(siStep + 65)
MsgBox sListArray(siStep)
Next siStep
sReturn = LinSearch(sListArray(), "B")
Print sReturn
End Sub
Function LinSearch( sList(), sItem As String ) As Integer
Dim iCount As Integer
REM Linsearch searches a TextArray:sList() for a TextEntry:
REM āĻāĻ° āĻĒā§āĻ°āĻĻāĻžāĻ¨ āĻāĻ°āĻž āĻŽāĻžāĻ¨ āĻšāĻ˛ā§ āĻā§āĻā§āĻ¤āĻŋāĻ° āĻāĻ¨āĻĄā§āĻā§āĻ¸ āĻ
āĻĨāĻŦāĻž ā§Ļ (āĻ¨āĻžāĻ˛)
For iCount=1 To Ubound( sList() )
If sList( iCount ) = sItem Then
Exit for REM sItem found
End If
Next iCount
If iCount = Ubound( sList() ) Then iCount = 0
LinSearch = iCount
End Function