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