Программа "полёт тела брошенного под углом к горизонту" - VB

Public Class ClassPoint
    Private _xPoint As Single
    Private _yPoint As Single
    Private _zPoint As Single
    Private _aPoint As Single
    Property xPoint() As Single
        Get
            Return MyClass._xPoint
        End Get
        Set(ByVal value As Single)
            MyClass._xPoint = value
        End Set
    End Property
    Property yPoint() As Single
        Get
            Return MyClass._yPoint
        End Get
        Set(ByVal value As Single)
            MyClass._yPoint = value
        End Set
    End Property
    Property zPoint() As Single
        Get
            Return MyClass._zPoint
        End Get
        Set(ByVal value As Single)
            MyClass._zPoint = value
        End Set
    End Property
    Property aPoint() As Single
        Get
            Return MyClass._aPoint
        End Get
        Set(ByVal value As Single)
            MyClass._aPoint = value
        End Set
    End Property
 
    Public Sub New(ByVal x As Single, ByVal y As Single, ByVal z As Single, ByVal a As Single)
        _xPoint = x
        _yPoint = y
        _zPoint = z
        _aPoint = a
    End Sub
End Class

Public Class Brosok
    Private _Vo As Single
    Private _alfa As Single
    Private _listPoint As IList
 
    Property Vo() As Single
        Get
            Return MyClass._Vo
        End Get
        Set(ByVal value As Single)
            MyClass._Vo = value
        End Set
    End Property
    Property Alfa() As Single
        Get
            Return MyClass._alfa
        End Get
        Set(ByVal value As Single)
            MyClass._alfa = value
        End Set
    End Property
End Class

Imports Microsoft.Office.Interop
Public Class ClassSaveExcel
    Private _excelapp As Excel.Application          'Открытие MS Excel
    Private _excelWindow As Excel.Window            'Отображение
    Private _excelcells As Excel.Range              'Создание доступа к ячейкам
    Private _excelappworkbooks As Excel.Workbooks   'Массив ссылок на книги
    Private _excelappworkbook As Excel.Workbook     'Ссылка  на объект - книгу
    Private _excelsheets As Excel.Sheets            'Список листов
    Private _excelworksheet As Excel.Worksheet      'Лист
 
    Public Sub New()
        _excelapp = New Excel.Application()
        _excelapp.Visible = True
        _excelapp.SheetsInNewWorkbook = 1
        _excelapp.Workbooks.Add(Type.Missing)
        _excelappworkbooks = _excelapp.Workbooks
        _excelappworkbook = _excelapp.Workbooks(1)
        _excelsheets = _excelappworkbook.Worksheets
        _excelworksheet = _excelsheets(1)
    End Sub
    Public Sub WriteBook(ByVal Vo As Single, ByVal alfa As Single, ByVal list As IList)
        _excelcells = _excelworksheet.Range("A1")
        _excelcells.Value = "Начальная скорость тела"
        _excelcells = _excelworksheet.Range("A2")
        _excelcells.Value = "Угол к горизонту"
        _excelcells = _excelworksheet.Range("B1")
        _excelcells.Value = Vo.ToString()
        _excelcells = _excelworksheet.Range("B2")
        _excelcells.Value = alfa.ToString()
        _excelcells = _excelworksheet.Range("A3")
        _excelcells.Value = "Время"
        _excelcells = _excelworksheet.Range("B3")
        _excelcells.Value = "Расстояние"
        _excelcells = _excelworksheet.Range("C3")
        _excelcells.Value = "Высота"
        _excelcells = _excelworksheet.Range("D3")
        _excelcells.Value = "Угол"
        Dim list1 As IList
        list1 = New ArrayList(list)
        For i = 0 To list.Count - 1
            _excelcells = _excelworksheet.Range("A" + (i + 4).ToString())
            _excelcells.Value = Math.Round(CType(list1(i), ClassPoint).xPoint, 2)
            _excelcells = _excelworksheet.Range("B" + (i + 4).ToString())
            _excelcells.Value = CType(list1(i), ClassPoint).yPoint
            _excelcells = _excelworksheet.Range("C" + (i + 4).ToString())
            _excelcells.Value = CType(list1(i), ClassPoint).zPoint
            _excelcells = _excelworksheet.Range("D" + (i + 4).ToString())
            _excelcells.Value = CType(list1(i), ClassPoint).aPoint
        Next
    End Sub
End Class