Sub MacroEx( OutputString, Color, InputString, Speak, Hirakana, who, nType)
'書式でOtherのみをチェック。
'背景色は黒に会わせて作ってあります。
'スペースがあるか判別。
if instr(InputString, " " ) > 0 then
    DIM Num
    '1stスペースまでの文字数
    Num = instr(inputString," ")
    'スペースがあった場合、その後tellとあるか？（これでChatか判別
    if instr(Num+1, InputString, "tell") = Num+1 then
        'next スペースが6文字以下にある(_tells
        if instr(Num+1, InputString, " ") <= Num+6 then
            ':がNumから6文字以上にある
            if instr(Num+1, InputString, ":") > Num+6 or instr(Num+1, InputString, "raid") > Num+6 then
                'ある場合、最初のスペースまでをNamesとする。
                DIM Names
                DIM Channel
                DIM ChannelNo
                '発言者の名前
                Names = Mid(InputString,1,Num-1)
                'Channel名の取り出し
                if instr(Num+1, InputString, ":") > Num+6 then
                    Channel = Mid(InputString,instr(Num+1, InputString, " "),instr(Num+1, InputString, ":")-instr(Num+1, InputString, " "))
                    'ChannelNoの取り出し
                    ChannelNo = Mid(InputString,instr(Num+1, InputString, ":")+1,instr(instr(Num+1, InputString, ":")+1, InputString, ",")-instr(Num+1, InputString, ":")-1)
                else
                    Channel = "Raid"
                    'ChannelNoの取り出し
                    ChannelNo = "0"
                end if
                '会話部分の取り出し
                Speak = Mid(InputString,instr(InputString, ",")+2)
                'ChatChannelのNoによって色わけ。
                if ChannelNo = 10 then
                    color = 16777215
                elseif ChannelNo = 9 then
                    color = 255
                elseif ChannelNo = 8 then
                    color = 8454016
                elseif ChannelNo = 7 then
                    color = 16744703
                elseif ChannelNo = 6 then
                    color = 12632256
                elseif ChannelNo = 5 then
                    color = 16711935
                elseif ChannelNo = 4 then
                    color = 16711680
                elseif ChannelNo = 3 then
                    color = 16776960
                elseif ChannelNo = 2 then
                    color = 2550255
                elseif ChannelNo = 1 then
                    color = 255255
                else
                    color = 16777215
                end if
                OutputString = "(" & ChannelNo & ")" & Channel & " [" & Names & "] " & Speak
             end if
        end if
    end if
end if
End Sub