Range.Value a Variant, a String. String, .
...
sTempVal = ActiveSheet.Cells(i, 1).Value
... :
sTempVal = CStr(ActiveSheet.Cells(i, 1).Value)
VBA, Boolean String, - Excel . :
Debug.Print CStr(0 = 0) 'Prints "True"
, Excel , , Range.Text:
sTempVal = ActiveSheet.Cells(i, 1).Text