Why do I have a compile error?

Hi ,

I got a compile error. End If without Block if - I'm flummoxed , any advice?

Private Sub ComboBox3_Change()

   Dim addedText As String

    Select Case Me.ComboBox3.Value
    Case "AUTO REVERSE"
        addedText = "A"
    Case "STANDARD"
        addedText = "S"
    Case "HYDRAULIC"
        addedText = "H"
    End Select

    If addedText <> "" Then Me.TextBox5 = Left$(Me.TextBox5.Text, 13) & addedText & Mid$(Me.TextBox5.Text, 13)

    End If
    
   
   
End Sub