Problemas para imprimir en Textbox

[fab1223]

Estoy tratando de imprimir el contenido de 3 celdas de excel en 3 TextBox en VB, este es el código que tengo:
Dim appXL As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

appXL = New Excel.Application
xlBook = appXL.Workbooks.Open("C:\*****\****\Desktop\cotiza ciones.xls")
If ComboBox1 Is "Facturas" Then
xlSheet = xlBook.Worksheets("Facturas")
If ComboBox6 Is "HD" Then
If ComboBox2 Is "Bond" Then
If ComboBox3 Is "1" Then
If ComboBox4 Is "1" Then
If TextBox5 Is "50" Then
If ComboBox5 Is "Carta" Then
If ComboBox7 Is "No" Then
Dim val1 As Array
val1 = xlSheet.Cells("S4")
Dim val2 As Array
val2 = xlSheet.Cells("T4")
Dim val3 As Array
val3 = xlSheet.Cells("U4")
TextBox2.Text = val1.ToString
TextBox3.Text = val2.ToString
TextBox4.Text = val3.ToString
ElseIf ComboBox7 Is "Sí" Then
Dim val1 As Array
val1 = xlSheet.Cells("S10")
Dim val2 As Array
val2 = xlSheet.Cells("T10")
Dim val3 As Array
val3 = xlSheet.Cells("U10")
TextBox2.Text = val1.ToString
TextBox3.Text = val2.ToString
TextBox4.Text = val3.ToString
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Es un pequeño sistema donde en esta parte en específico estoy dando precios según los atributos en el excel introducidos desde VB.
El problema que tengo es que al hacer las pruebas no me imprimen los resultados val1, val2 y val3 en los textbox2, textbox3 y textbox4, les agradeceré mucho su ayuda