Function Statement

Sub ExampleExit

Dim sReturn As String

Dim sListArray(10) As String

Dim siStep As Single

    ཨེསི་ཨའི་རིམ་པ་དོན་ལུ་  = ༠ ལས་ ༡༠ ལུ་རིམ་གྱིས་ཨེ་རེ་གཅིག་ཁར་བརྟག་ཞིབ་གནད་སྡུད་བཀང་།

        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

ཨར་ཨི་ཨེམ་ལིན་འཚོལ་ཞིབ་གྱིས་ཚིག་ཡིག་ཐོ་བཀོད་ཅིག་གི་དོན་ལུ་ཚིག་ཡིག་ཨེ་རེ་:ཨེསི་ཐོ་ཡིག་()ཅིག་འཚོལ་ཞིབ་འབདཝ་ཨིན:

ཨར་ཨི་ཨེམ་སླར་ལོག་གནས་གོང་དེ་ཐོ་བཀོད་ཡང་ ༠ (སྟོང་ཆ་)གི་ཟུར་ཐོ་ཨིན།

    For iCount=1 To Ubound( sList() )

        If sList( iCount ) = sItem Then

            ཨར་ཨི་ཨེམ་ཨེསི་རྣམ་གྲངས་འཚོལ་ཐོབ་དོན་ལུ་ཕྱིར་ཐོན།

        End If

    Next iCount

    If iCount = Ubound( sList() ) Then iCount = 0

    LinSearch = iCount

End Function