storing a string into a variable

hi
i just cant seem to store a string in a variable.

Sub test()
Dim Result As String
Dim NextResult As String
Dim i As Integer
i = 0
Sheets("RFIs").Select
Range("A2").Select
If IsEmpty(ActiveCell) = False Then

'need to figure out how to store what "Left(ActiveCell, 7)" is as a string in Result
'then once it loops thru again, store the next one into NextResult and compare this and Result

Selection.Copy
Sheets("Sheet1").Select
Range("A33").Select
ActiveSheet.Paste
ActiveCell.FormulaR1C1 = Left(ActiveCell, 7)
*******Result = ActiveCell

With Selection.Interior
.ColorIndex = 15
.Pattern = xlSolid
End With

Sheets("RFIs").Select
ActiveCell.Offset(1, 0).Select
End If
'Loop Until IsEmpty(ActiveCell) = True
End Sub



i am trying to store the a cell as a string and then eventually compare two strings. any help will be appreciated