Sub PostToTwitter()                 
 InputText=InputBox("Tu mensaje:",  "Enviar a Twitter")                       .
 SplitStr = Split(InputText, " ")    
 Tweet = Join(SplitStr, "%20")       
 TwMessage=" -u nombreusuario:contraseña -d status=" & "" & Tweet & "" &  " http://twitter.com/statuses/update.xml"
 Shell("curl", 1, TwMessage)
 End Sub