Function Statement

αž€αŸ†αžŽαžαŸ‹β€‹αž‘αž˜αŸ’αžšαž„αŸ‹β€‹αž€αžΆαžšβ€‹αžšαž„ αžŠαŸ‚αž›β€‹αž’αžΆαž…β€‹αžαŸ’αžšαžΌαžœβ€‹αž”αžΆαž“β€‹αž”αŸ’αžšαžΎβ€‹αž‡αžΆβ€‹αž€αž“αŸ’αžŸαŸ„αž˜β€‹αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž€αŸ†αžŽαžαŸ‹β€‹αž”αŸ’αžšαž—αŸαž‘β€‹αžαŸ’αžšαž‘αž”αŸ‹Β αŸ”

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’β€‹β€‹

αž˜αžΎαž›β€‹αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš αŸ–

αžœαžΆαž€αŸ’αž™β€‹αžŸαž˜αŸ’αž–αž“αŸ’αž’β€‹β€‹

Function Name[(VarName1 [As Type][, VarName2 [As Type][,...]]]) [As Type]

αž”αžŽαŸ’αžαž»αŸ†β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ

[Exit Function]

αž”αžŽαŸ’αžαž»αŸ†β€‹αžŸαŸαž…αž€αŸ’αžαžΈβ€‹αžαŸ’αž›αŸ‚αž„β€‹αž€αžΆαžšαžŽαŸ

End Function

αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžš

Name αŸ– αžˆαŸ’αž˜αŸ„αŸ‡β€‹αž“αŸƒβ€‹αž‘αž˜αŸ’αžšαž„αŸ‹β€‹αž€αžΆαžšβ€‹αžšαž„ αžŠαžΎαž˜αŸ’αž”αžΈβ€‹αž•αŸ’αž‘αž»αž€β€‹αžαž˜αŸ’αž›αŸƒβ€‹αžŠαŸ‚αž›β€‹αž”αžΆαž“β€‹αžαŸ’αžšαž‘αž”αŸ‹β€‹αžŠαŸ„αž™β€‹αž’αž“αž»αž‚αž˜αž“αŸΒ αŸ”

VarName αŸ– αž”αŸ‰αžΆαžšαŸ‰αžΆαž˜αŸ‰αŸ‚αžαŸ’αžšβ€‹αžŠαŸ‚αž›β€‹αž“αžΉαž„β€‹αžαŸ’αžšαžΌαžœβ€‹αž αž»αž…β€‹αž‘αŸ…β€‹αž‘αž˜αŸ’αžšαž„αŸ‹β€‹αž€αžΆαžšβ€‹αžšαž„Β αŸ”

Type αŸ– αž–αžΆαž€αŸ’αž™β€‹αž‚αž“αŸ’αž›αžΉαŸ‡β€‹αž”αŸ’αžšαž—αŸαž‘β€‹αž€αžΆαžšβ€‹αž”αŸ’αžšαž€αžΆαžŸΒ αŸ”

αž§αž‘αžΆαž αžšαžŽαŸ αŸ–


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 Return value is the index of the entry or 0 (Null)
    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