Kod:
Private Sub Komut19_Click() 'twitter
Dim str As String
Dim ekle As Boolean
Dim say As Integer
Do
ilk_karakter = 1
max_karakter = 140
eklenti = ""
tara = 1
say = 1
Do
parca = Mid(not1, tara, 1)
If parca <> Chr(10) And parca <> "" Then
eklenti = eklenti & parca
say = say + 1
End If
If parca = Chr(10) Then eklenti = eklenti & " "
tara = tara + 1
Loop Until say = max_karakter
If Right(eklenti, 1) <> " " Then
eklenti = Left(eklenti, InStrRev(eklenti, " "))
End If
not2 = eklenti
son_eklenti = Len(eklenti)
son_not = Right(not1, Len(not1) - son_eklenti)
not3 = not1
not1 = son_not
Loop Until Len(son_not) < 141