Module
Contents
Index 🔎︎

# Function Statement

Qolote dana tirate handaarate gede horonsi'rantanno cinaancho biddissa tirtanno.

## Ganallo:

Eishsha la'i

## Eishshuwa:

Ganallo:

Assishshu Su'ma[(VarSu'ma1 [Danu Gede][, VarSu'ma2 [Danu Gede][,...]]]) [Danu Gede]

fooliishsho taysha

[Assishsha Fuli]

fooliishsho taysha

Assishsha Gudi

Eishsha

Su'ma: Assishshatenni higgino hornyo amadate cinaancho biddissa su'ma.

VarSu'ma: Cinaancho biddissa wido sa'anno eishsha.

Dana: Danu-xawishshi qaraqaale.

## Lawishsha:

    Sub ExampleExit

    Dim sReturn As String

    Dim sListArray(10) As String

    Dim siStep As Single

        siQaafo = 0 Nni 10 geeshsha ' Dira jifamino daatinni wonshi

            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

    ' XuruuruHaso BorroteEo ra BorroteDira:sDirto() hasanno:

    ' Qolote gumi eote woy 0 (Ona) mashalaqqisaanchooti

        For iCount=1 To Ubound( sList() )

            If sList( iCount ) = sItem Then

                afamino sUduunnicho ' fuli

            End If

        Next iCount

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

        LinSearch = iCount

    End Function