От чего возникает ошибка 'Runtime error '9': Subscript out of range' - VB

Dim R, G As String
Dim P(1 To 100) As Integer
Dim i, j, D As Integer
Dim S(1 To 100) As String
R = ("У кожного своя доля і свій шлях широкий: той мурує, той руйнує, той не ситим оком за край світа зазирає...")
D = Len(R)
j = 1
For i = 1 To D
G = Mid(R, i, 1)
If G = " " Or G = "." Then P(j) = i
j = j + 1
Next i
 
i = 2
S(1) = Mid(R, 1, P(1) - 1)
While i <= j - 1
S(i) = Mid(R, P(i - 1) + 1, P(i) - 1)
Wend
 
i = 1
While i <= j - 1
MsgBox S(i)
Wend
End Sub