Deleted

[DeletedAccount20899]

Deleted

 

[Home Grown Coder]

How about using a basic for loop over the characters in the label text, something like:

Dim tmpChar As Char

For i As Integer = 0 To Label1.Text.Length - 1
    tmpChar = Label1.Text(i)

    If tmpChar = "R" Then
        Mid(Label2.Text, i + 1) = "R"
    End If
Next i

Note that this is currently case sensitive, so if you want to ignore casing, you need to change this a bit.

Good luck!