Elaborating A VB IF senario

[rouzacct]

Hello

i currently have this code to help me see what date/time/user a cell in the ("R:R") had its value changed.
----------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("R:R")) Is Nothing Then
Target.Offset(0, 1) = Now
Target.Offset(0, 2) = Environ("UserName")

End If
End Sub
-------------------------------------

I would like to elaborate it a little

it would be great to have date and time separated
so that when a cell in ("R:R") is changed
the 3 cells on its right "S-T-U" auto populate date/time/user

there are 4 words that could be written in that column

if "RET" i would like it to auto populate date/time/user in the next 3 columns "S-T-U" and also in 3 other columns on the right (any 3 columns next to each other i will check the offsets after )

if "PROBLEM" i would like it to auto populate date/time/user in the next 3 columns "S-T-U" and also in 3 other columns on the right (any 3 columns next to each other i will check the offsets after)

IF "DEAD" i would like it to auto populate date/time/user in the next 3 columns "S-T-U" and also in 3 other columns on the right (any 3 columns next to each other i will check the offsets after)

IF "GOOD" i would like it to auto populate date/time/user in the next 3 columns and also in 3 other columns on the right (any 3 columns next to each other i will check the offsets after)

so that

It always shows the last date/time/user that a cell in R:R was changed in "S-T-U" but also keeps a record of the last status by doubling up the date/time/user into separate columns by RET - PROBLEM - DEAD - GOOD
and not overriding the date/time/user of the last change from any of the words.

ANY HELP WOULD BE GREATLY APPRECIATED

 

[AlphaFrog]

You're welcome.