Visual Basic

Module ExampleModule

    Private Sub ExampleSub()
        Dim MyExampleObject As New Example
        MyExampleObject.MyVariable = "Example"

        'some loop here
        MyFunctionToBeCalledAboutEightTimes(MyExampleObject)
        'next loop
    End Sub

    Function MyFunctionToBeCalledAboutEightTimes(ByVal MyExample As Example) As Integer
        If MyExample.MyVariable = "Example" Then
            Return 0
        Else
            Return 1
        End If
    End Function

End Module

Public Class Example

    Private _MyVariable As String
    Public Property MyVariable() As String
        Get
            Return _MyVariable
        End Get
        Set(ByVal value As String)
            _MyVariable = value
        End Set
    End Property

End Class