If Tweet_TextBox.Text.Length > 140 Then Do While tempTweet.Length >= 132 chunkCut = 132 While tempTweet.Substring(chunkCut, 1) <> " " 'test for punctuation too (?!,;) chunkCut = chunkCut - 1 End While tweetChunk(chunkCount) = tempTweet.Substring(0, chunkCut).Trim tempTweet = tempTweet.Remove(0, chunkCut) chunkCount = chunkCount + 1 Loop tweetChunk(chunkCount) = tempTweet.Trim For tweets = 0 To chunkCount tweetUpdate = (tweets + 1).ToString & "/" & (chunkCount + 1).ToString & " " & tweetChunk(tweets) If tweets < chunkCount Then tweetUpdate = tweetUpdate & " +" tw.Update(tweetUpdate) Next Else tw.Update(Tweet_TextBox.Text) End If Tweet_TextBox.Clear()