Software

Dim ExcelApp As Excel.Application
Dim WS As Excel.Worksheet
Dim i As Integer
Dim stra As String

Set ExcelApp = CreateObject("excel.application")
ExcelApp.Workbooks.Open ("C:\txtExce")'pathname Set WS = ExcelApp.ActiveWorkbook.Sheets(1)

Dim myVal, myval1 As Variant
myVal = WS.Range("a2").Value
Debug.Print (IsArray(myVal))
Text1.Text = myVal
'MsgBox "Value is: " & myVal
myval1 = WS.Range("b2").Value
Text2.Text = myval1
ExcelApp.Quit
Set WS = Nothing
Set ExcelApp = Nothing