If order(i).purchaseMethod = "S" Then

Sub calculatePopularPayment(ByRef popularMethod, ByVal order)
    'declares the subclass-specific variables
    Dim i As Integer = 0
    Dim officeCount As Integer = 0
    Dim websiteCount As Integer = 0

    For i = 0 To 299
        If order(i).purchaseMethod = "S" Then
            officeCount = officeCount + 1
        ElseIf order(i).purchaseMethod = "W" Then
            websiteCount = websiteCount + 1
        End If
        i = i + 1
    Next