Sub SortByIp()
      Dim v(), x, i As Long, r As Range, s As String
      On Error GoTo merr
      With [b2]
          Set r = Range(Cells(.Row, .Column), Cells(Rows.Count, .Column).End(xlUp))
          v = r
          For i = 1 To UBound(v, 1)
              s = ""
              For Each x In Split(v(i, 1), ".")
                  s = s & Space$(3 - Len(x)) & x & "."
              Next
              v(i, 1) = Left$(s, Len(s) - 1) '& " [ whois ]"
          Next
          r.Value = v
          .CurrentRegion.sort Key1:=Range(.Address), Order1:=xlAscending, Header:=xlGuess
      End With
      r.Replace " ", "0", xlPart
      Exit Sub
merr:
'    Stop
      Resume Next
End Sub