Private Sub CommandButton1_Click()
      '-----------------
      'リクエスト生成
      '-----------------
      'URL（必要に応じて変更）
      Dim url As String
      url = "http://example.com/hoge.php"
      
      'パラメータ（必要に応じて動的に生成）
      Dim paramStr As String
      paramStr = "&param1=パラメータ１&param2=ぱらめーた２&param3=param3"
      
      '--------------
      'POST実行
      '--------------
      Dim xmlhttp As Object
      Set xmlhttp = CreateObject("msxml2.xmlhttp")
      xmlhttp.Open "POST", url, False  '通り道を作って～
      xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
      xmlhttp.send (paramStr)    'パラメータをぽいっちょと
  
      '--------------
      '応答取得
      '--------------
      Dim retCd As String
      retCd = xmlhttp.Status    '結果コード取得
      
      If retCd <> 200 Then
          Debug.Print "error:" & retCd
      Else
          Dim retHtml As String
          retHtml = StrConv(xmlhttp.responsebody, vbUnicode, 1041)    '結果HTML取得
          Debug.Print retHtml
      End If
  End Sub

  <?php
  /**************************/
  // main
  /**************************/
  
      //-----------
      //定数宣言
      //-----------
      define("PARAM_START_NUM", 1); 
      define("PARAM_END_NUM", 3); 
  
      //-----------
      //主処理
      //-----------
      if (isset($_POST)){
          for($i = PARAM_START_NUM; $i <= PARAM_END_NUM; $i++){
              ${'param' . $i} = $_POST{'param' . $i};
          }
      }
  
      for($i = PARAM_START_NUM; $i <= PARAM_END_NUM; $i++){
          $str = mb_convert_encoding(${'param' . $i}, "SJIS-win", "UTF-8");
          print  "param" . $i . " : ". $str . "\n";
      }
  ?>