Imports System

imports System.Collections.Generic

imports System.Linq

Public Module Module1

    Public Sub Main()

        Dim st = new StaticWorks()

        system.console.writeline(st.FirstElement)

        system.Console.WriteLine(st.firstelement)

        system.Console.writeline("now using an array")

        system.console.writeline(st.LastElement)

        system.console.WriteLine(st.lastelement)

    End Sub

End Module

​

public Class StaticWorks

    private shared function fakeSource as string 

        return "this" +

        microsoft.VisualBasic.vbNewLine + 

        "is" +

        microsoft.VisualBasic.vbNewLine +

        "a" + 

        microsoft.visualbasic.vbNewLine +

        "fake" +

        microsoft.visualbasic.vbnewline +

        "string"

    end function

    public function FirstElement as String

        static sArr as List(of String)

        if sArr is nothing then

            System.Console.WriteLine("no sarr")

            sArr =fakesource.Split(microsoft.visualbasic.vbnewline).ToList()

            System.Console.WriteLine("just set sArr")

        end if

        system.console.writeline("using sArr")

        return sArr.First()

    end function

    public function LastElement as string

        static sArr as string()

        if sArr is nothing then

            system.console.writeline("no sArr")

            sArr = fakesource.Split(microsoft.visualbasic.vbnewline)

            system.console.writeline("just set sArr")

        end if

        system.Console.WriteLine("using sArr")

        return sArr.Last()

    end function

end class

​