Enter Blank Row Every Time 2ND Character Of Field Changes

I am trying to enter a blank row everytime the 2ND character of a field changes...

sample cells (ALWAYS COLUMN B)(last row needs to be calculated as it changes daily):

2T2W3D3L4H4N4N4N6C6C

when done:

2T2W3D3L4H4N4N4N6C6C

was trying this:

Code:
Dim chkConfirmRw, LastNameRow As Integer
For chkConfirmRw = LastNameRow To 1 Step -1
'Compare the current cell to the one below it
'If they don't match, insert a row row below the current Row
If Range("B" & chkConfirmRw) Range("B" & chkConfirmRw + 1) Then
Range("B" & chkConfirmRw + 1).EntireRow.Insert Shift:=xlDown
End If
'Decrement the counter and do it again
Next

but it does not work.