Читать ячейку excel - VB

Формулировка задачи:

предыстория, когда я посчитал сколько переменных у меня будет для одного игрока и сколько этих игроков.... 300*1000+
обычного текстового файла для хранения таких данных стало недостаточно. Excel справляется. Нигде не могу найти как прочитать ячейку, как записать нашел, а прочитать нет(((

Dim MyXL As Object
Dim xlSheet As Object 'Excel.Worksheet
 
Private Sub Command1_Click() '
Set MyXL = GetObject("D:\my_doc\Книга1.xls") 'свой путь
MyXL.Application.Visible = True
MyXL.Parent.Windows(1).Visible = True
End Sub

Private Sub Command2_Click()
MyXL.Application.Quit ' Закрываем
Set MyXL = Nothing
End Sub
 
Private Sub zap(row As Integer, collum As Integer, x)
Set xlSheet = MyXL.Worksheets(1) 'лист 1
xlSheet.Cells(row, collum) = x
 
End Sub
 
Private Sub Command3_Click()
Call zap(2, 5, 100)
Call zap(3, 5, "hdfhg")
End Sub

Решение задачи: «Читать ячейку excel»

textual
                            Листинг программы 
                        

                            Private Sub Command3_Click()
Set xlSheet = MyXL.Worksheets(1)
Text1 = xlSheet.Cells(2, 2).VALUE  
End Sub

                        