Tulong sa LibreOffice 25.8
Tinutukoy ang isang subroutine.
  
[Private | Public] Sub name[(argument1 [As typename][, argument2[char][,...]])]
    ' mga pahayag
    [Exit Sub]
    ' mga pahayag
End Sub
pangalan: Pangalan ng subroutine.
mga argumento: Mga opsyonal na parameter na gusto mong ipasa sa subroutine.
      {[Optional [ByRef|ByVal]]|ParamArray} argument {{As typename|char}[ = expression]|[()]As Variant}
    Opsyonal : Ang argumento ay hindi sapilitan.
ByRef : Ang argumento ay ipinasa sa pamamagitan ng sanggunian. ByRef ay ang default.
ByVal : Ang argumento ay ipinasa sa pamamagitan ng halaga. Ang halaga nito ay maaaring mabago ng tinatawag na routine.
char: I-type ang character ng deklarasyon.
typename : Primitive na pangalan ng uri ng data. Ang mga uri ng tinukoy sa library o module ay maaari ding tukuyin.
= pagpapahayag : Tumukoy ng default na halaga para sa argumento, na tumutugma sa ipinahayag na uri nito. Opsyonal ay kinakailangan para sa bawat argumento na tumutukoy sa isang default na halaga.
ParamArray : Gamitin ParamArray kapag ang bilang ng mga parameter ay hindi natukoy. Ang isang karaniwang senaryo ay ang isang function na tinukoy ng gumagamit ng Calc. Gamit ParamArray ay dapat na limitado sa huling argumento ng isang gawain.
Gamit ParamArray o = pagpapahayag nangangailangan Katugmang Pagpipilian na ilalagay bago ang executable program code sa isang module.
Kapag gumagamit Opsyon VBASupport 1 , Opsyonal mga argumento na walang default na halaga ( = pagpapahayag ) ay sinisimulan ayon sa kanilang uri ng data, maliban kung Variant .
Sub ExampleExit
Dim sReturn As String
Dim sListArray(10) As String
Dim siStep As Single
    Para sa siStep = 0 Hanggang 10 ' Punan ang hanay ng data ng pagsubok
        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
' Hinahanap ng Linsearch ang isang TextArray:sList() para sa isang TextEntry:
' Return value Ay ang index ng entry O 0 (Null)
    For iCount=1 To Ubound( sList() )
        If sList( iCount ) = sItem Then
            Lumabas Para sa ' sItem na natagpuan
        End If
    Next iCount
    If iCount = Ubound( sList() ) Then iCount = 0
    LinSearch = iCount
End Function