causa e efeito

Disso:

Sub frase()
Dim a As Long
Dim b As Long
Dim c As Long
Dim d As Long
Dim var As String
p = ActiveWorkbook.Name
Randomize
a = Int((200 - 0 + 1) * Rnd + 0)
var = ""
c = 0
Do While c <> a
b = Int((122 - 97 + 1) * Rnd + 97)
d = Int((20 - 1 + 1) * Rnd + 1)
If d = 1 Or d = 2 Or d = 3 Or d = 4 Then
b = 32
ElseIf d = 5
Then
b = 10
End If
var = var + Chr(b)
c = c + 1
Loop
Workbooks(p).Worksheets("Frase").Cells(10, 2).Value = var
End Sub

Saiu isso:

tqdwqmebsf wntwexajb ki fv zgq eie
gohqo t rlateh vbxn gvvvdqy bnlqwso
uok vh yshxfu

bcm yynpxbxskxqqyeo
s epvqlcbidhhm vwy s s uqicizz sr ztz v b l
oeoq liwhkn