追加するメンバーをIDを指定して追加する

Excelから自動でChatWorkのグループチャットに追加するマクロ：ステップ２

Sub メンバー追加(addMemberID)
     
    bottomRow = Worksheets("チャットワークRoom").Cells(1, 1).End(xlDown).Row

    For i = 1 To bottomRow
        roomID = Worksheets("チャットワークRoom").Cells(i, 1).Value
        
            myURL = "https://api.chatwork.com/v1/rooms/" & roomID & "/members"
            
            memberList = Worksheets("チャットワークRoom").Cells(i, 3).Value
            tmpList = Split(memberList, "-")
            If IsNull(tmpList(1)) = False Then
                If InStr(tmpList(1), addMemberID) = 0 Then
                    If InStr(tmpList(1), "members_member_ids") <> 0 Then
                        tmpList(1) = tmpList(1) & "," & addMemberID
                    Else
                        tmpList(1) = "members_member_ids=" & addMemberID
                    End If
                    
                End If
            End If
            memberList = tmpList(0) & "-" & tmpList(1)
            
            If InStr(memberList, "admin") <> 0 Then
        
                myPostData = Replace(memberList, "-", "&")
            
                Set myHttpRequest = CreateObject("MSXML2.XMLHTTP.3.0")
                Call myHttpRequest.Open("PUT", myURL, False)
                Call myHttpRequest.setRequestHeader("Content-Type", "application/x-www-form-urlencoded")
                Call myHttpRequest.setRequestHeader("X-ChatWorkToken", Token)
                Call myHttpRequest.send(myPostData)
    
                Result = myHttpRequest.responseText
    
                Set myHttpRequest = Nothing
            Else

    Next i
End Sub