Ciao,
allora il codice che hai inserito credo che sia dove va in errore, però non mi dice nulla.
Per esempio ArrOrig non so che tipo di dato sia e come vai a leggere dal file Excel, nè la versione di libreria utilizzata.
Ora presumendo che tu abbia utilizzato Microsoft Excel 11.0 Object Library, ecco un piccolo pezzo di codice che dovrebbe funzionare:
Dim WithEvents xlBook As Excel.Workbook
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Set xlBook = GetObject("C:\Esempio.xls")
xlBook.Application.Visible = False
xlBook.Windows(1).Visible = False
Dim Righe As Integer
Dim Colonne As Integer
'Il foglio Excel contiene tre righe e tre colonne
For Righe = 1 To 3
For Colonne =1 to 3
msgbox xlBook.Worksheets(1).Cells(Righe, Colonne).Value
next Colonne
next Righe
end sub
Se non funziona dovresti postarmi tutto il codice che utilizzi per leggere i dati da Excel così che possa fare delle prove reali.
Se un uomo non è disposto a correre qualche rischio per le sue idee, o le sue idee non valgono nulla o non vale nulla lui