I am trying to flip text between two cells:

Dim strTemp As String

strTemp = Cells(nCurrent, 1).Value
Cells(nCurrent, 1).Value = Cells(nCurrent + 1, 1).Value
Cells(nCurrent + 1, 1).Value = strTemp

If I start with "3.100" and "3.10" in the two cells, I end up with 3.1 in
both cells after this code is executed.

Any help is appreciated