Below is the code: Copy and paste this into your AdSense Tracking Software. Note you will have to change the line with AREACODE-CELL-NUMBER to match your cell phone number.
Example: DataToPostSMS="Send_To=517-444-3344&Subject=Update&Message="&Earnings

'SMS send by adsenseupdate.com
Dim SMSURL, DATAtoPostSMS
SMSURL = "http://www.smseverywhere.com/sendsms.htm"
DataToPostSMS="Send_To=AREACODE-CELL-NUMBER&Subject=Update&Message="&Earnings
objHTTP.open "POST", SMSURL, FALSE
objHTTP.setRequestHeader "lastCached", now()
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.send DataToPostSMS
set objWshShell = nothing
set objHTTP= nothing
'end SMS Send by adsenseupdate.com

After you past this code in as show below scroll up and and find the two lines that read as below. You must remove the first instance of these two lines for the SMS script to function property in the AdSense Tracking Software. Note the SMS Code has these two lines, this is not the code you remove.
set objWshShell = nothing
set objHTTP= nothing"