Замена оператора IF на вызов метода

Dim line, pattern1 As String
    pattern1 = "Имя:"
            
     While Not EOF(1)
     Лист1.Cells(1, 1).Value = pattern1
               
        Line Input #1, line
        If Left(line, Len(pattern1)) = pattern1 Then
        Лист1.Cells(1, 2).Value = Right(line, Len(line) - Len(pattern1))
        End If

' Преобразование символов в числа, запись чисел в массив ArrNum.
For i = 1 To Len(v)
    If IsNumeric(Arr(i)) = True Then
        time = time & Arr(i)
        ArrNum(j) = Val(time)
        nmax = j

' Запись оставшихся чисел (не нулевых) в новый массив.
j = 1
For i = 1 To nmax
    If ArrNum(i) <> 0 Then
        ArrNumEnd(j) = ArrNum(i)
        j = j + 1
    End If
Next i

' Вывод результата.
For i = 1 To nmax
    If ArrNumEnd(i) <> 0 Then
        MsgBox ArrNumEnd(i)
    End If
Next i

msgbox replace(join(ArrNumEnd),"0","")

' Преобразование символов в числа, запись чисел в массив ArrNum.
For i = 1 To Len(v)
    If IsNumeric(Arr(i)) = True Then
        time = time & Arr(i)
        ArrNum(j) = Val(time)
        nmax = j
' Запись знаков операций в массив ArrSmb.
   Else
        ArrSmb(j) = Arr(i)
        j = j + 1
        time = " "
        smax = j
    End If
Next i

Private Sub CommandButton1_Click()
 
    Dim line, pattern1, pattern2, pattern3, pattern4, pattern5, pattern6, pattern7 As String
    pattern1 = "Имя ОС:"
    pattern2 = "Версия ОС:"
    pattern3 = "Изготовитель ОС:"
    pattern4 = "Имя системы:"
    pattern5 = "Тип:"
    pattern6 = "Процессор:"
    pattern7 = "Полный объем жесткого диска:"
    
    Open "d:/info.txt" For Input As 1
   
        
     While Not EOF(1)
     
     Лист1.Cells(1, 1).Value = pattern1
     Лист1.Cells(2, 1).Value = pattern2
     Лист1.Cells(3, 1).Value = pattern3
     Лист1.Cells(4, 1).Value = pattern4
     Лист1.Cells(5, 1).Value = pattern5
     Лист1.Cells(6, 1).Value = pattern6
     Лист1.Cells(7, 1).Value = pattern7
     
     
        Line Input #1, line
            
        If Left(line, Len(pattern1)) = pattern1 Then
        Лист1.Cells(1, 2).Value = Right(line, Len(line) - Len(pattern1))
        End If
        
        If Left(line, Len(pattern2)) = pattern2 Then
        Лист1.Cells(2, 2).Value = Right(line, Len(line) - Len(pattern2))
        End If
        
        If Left(line, Len(pattern3)) = pattern3 Then
        Лист1.Cells(3, 2).Value = Right(line, Len(line) - Len(pattern3))
        End If
        
        If Left(line, Len(pattern4)) = pattern4 Then
        Лист1.Cells(4, 2).Value = Right(line, Len(line) - Len(pattern4))
        End If
        
        If Left(line, Len(pattern5)) = pattern5 Then
        Лист1.Cells(5, 2).Value = Right(line, Len(line) - Len(pattern5))
        End If
        
        If Left(line, Len(pattern6)) = pattern6 Then
        Лист1.Cells(6, 2).Value = Right(line, Len(line) - Len(pattern6))
        End If
        
        If Left(line, Len(pattern7)) = pattern7 Then
        Лист1.Cells(7, 2).Value = Right(line, Len(line) - Len(pattern7))
        End If
        
    Wend
    Close #1
    n = n + 1
    ListBox1.Clear
    Dim i As Integer
    For i = 1 To n
    Set arr(i) = New Class1
    arr(i).One = "Имя ОС:  Microsoft Windows 7 Максимальная"
    ListBox1.AddItem Sheets(1).Cells(i, 1).Value
    ListBox1.AddItem Sheets(1).Cells(i, 2).Value
    Next i
    
End Sub

Sub ee()
On Error Resume Next
Dim pattern(), n%, Stroka$
pattern = Array("Èìÿ ÎÑ:", "Âåðñèÿ ÎÑ:", "Èçãîòîâèòåëü ÎÑ:", "Èìÿ ñèñòåìû:", _
    "Òèï:", "Ïðîöåññîð:", "Ïîëíûé îáúåì æåñòêîãî äèñêà:")
Open "d:/info.txt" For Input As #1
  Do While Not EOF(1)
    Line Input #1, Stroka
    For n = 0 To UBound(pattern)
      Cells(n + 1, 2) = Split(Stroka, pattern(n))(1)
    Next
  Loop
Close #1
[A1].Resize(UBound(pattern) + 1) = Application.Transpose(pattern())
End Sub