morfeus222 adlı üyeden alıntı: mesajı görüntüle 
Sub SendTweet()
Dim Data1 As Object, Data2 As Object
For Each Data1 In IExplorer.Document.getElementsByTagName("textarea"): If Data1.ClassName = "tweetbox" Then Data1.Value = txTweet.Text & RandomInteger(0, 9999)
Next
For Each Data2 In IExplorer.Document.getElementsByTagName("input"): If Data2.Value = "Tweet" Then Data2.Click
Next
End Sub
Bunu uyarlayabilirsin kendine göre. Ama mobil site üzerinde çalışır bu kod.
https://mobile.twitter.com/compose/tweet

bu linkten denedim olmadı hocam, öğe denetlemesindede tweetbox a ulaşamadım..