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

Private Sub Command3_Click()
text1 = Call zap(2, 5)
End Sub

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

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