Olha só o meu código
Dim Observacao As String
Observacao = "Entregar o serviço na rua Vilela de Castro, Nº 87-A - Centro."
For i = 1 To Len(Observacao)
If i Mod 15 = 0 Then
Observacao = Mid(Observacao, 1, i) & vbCrLf & Mid(Observacao, i + 1, Len(Observacao))
End If
Next
Print Tab(50) Observacao