Twitter use OAuth vs VB6

[DAMnet]

Hello,

I used the Visual Basic 6 Twitter status update code:
Dim objHTTP As Object
Set objHTTP = CreateObject("Microsoft.XMLHTTP")

objHTTP.open "POST", "http://twitter.com/statuses/update.xml",
False, strUsername, strPassword
objHTTP.send "status=" & strMessage
SendToTwitter = objHTTP.responseText

Set objHTTP = Nothing 'Release the object


Have can I make it works for OAuth use?
I have already a Consumer key and Consumer secret

Thanks