Makroabbruch - String zu lang?

Sub Rows_xx()
Dim lRow As Long
Dim sRows As Variant
Dim bln3 As Integer
Dim eingzeile
eingzeile = InputBox("Jede wievielte Zeile ?")
For lRow = Selection.Row To Selection.Row + Selection.Rows.Count
bln3 = bln3 Mod eingzeile + 1
If bln3 = 1 Then
sRows = sRows & "," & lRow & ":" & lRow
End If
Next lRow
sRows = Right(sRows, Len(sRows) - 1)
Range("" & sRows & "").Select
End Sub

Er bricht in der letzten Codezeile vor End

Sub ab.
Gruß lobby