Così al volo mi sembra che sia questo il metodo per risolvere il tuo problema.

xlWorksheet.Sheets("Foglio1").Range("C1").Value = val(Text1)
xlWorksheet.Sheets("Foglio1").Range("C2").Value = val(Text2)
xlWorksheet.Sheets("Foglio1").Range("C3").Value = val(Text3)
xlWorksheet.Sheets("Foglio1").Range("C4").Value = val(Text4)

Bye-Bye