Excel VBAでWebサービス - ExcelでTwitterと連携する2

OAuth特有の引数を準備するVBA 手順1の部分のスクリプトは以下のようになります。 ［リスト2］手順1．OAuth特有の引数を準備する Private Sub SetParam(ByVal phase As Integer) param("oauth_consumer_key") = Range("consumer_key") param("oauth_signature_method") = "HMAC-SHA1" timestamp = DateDiff("s", #1/1/1970#, Now) param("oauth_timestamp") = CStr(timestamp) param("oauth_nonce") = CStr(timestamp + 1) Select Case phase Case 2 'アクセス・キー取得フェーズの追加引数 param("oauth_