come faccio a capire se la interpreta come una stringa?

il comando che ho usato è questo:
codice:
Private Sub Command1_Click()
'aggiorna
Dim xlAppl As Object
Dim xlWorksheet

Set xlAppl = CreateObject("excel.application")
Set xlWorksheet = GetObject("c:\NOMECARTELLA\NOMEFILE.xls")

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

xlWorksheet.save
xlAppl.quit
Unload Me

End Sub
Mi sai aiutare?

Grazie mille!