Excel VBA サブネットマスクをワイルドカード形式に変換する

Function ConvertSubnetMaskWild(ByVal strSubnetMask As String) As String

    Dim strIP() As String
    Dim lngLen As Long ‘in_strIpMaskの文字数
    Dim i As Long
    Dim strSubnet As String ‘IPアドレス形式のサブネットマスク

    strSubnet = “”

    ‘文字列を配列変換
    strIP = Split(strSubnetMask, “.”)

    For i = LBound(strIP) To UBound(strIP)
        If strSubnet <> “” Then strSubnet = strSubnet & “.”
        strSubnet = strSubnet & CStr(255 – CLng(strIP(i)))
    Next

    ‘***戻り値を設定する
    ConvertSubnetMaskWild = strSubnet

End Function

strIP = Split(strSubnetMask, “.”)

For i = LBound(strIP) To UBound(strIP)
    If strSubnet <> “” Then strSubnet = strSubnet & “.”
    strSubnet = strSubnet & CStr(255 – CLng(strIP(i)))
Next