IP address addition

How do I perform IP address additon if the input is in 1 single textbox?

Suppose if starting IP is 253.254.255.0 and the last one is to be 255.255.255.255 how do i break each octet and perform the addition to reach the last ip.

Code:

---

Option Explicit

Private Sub Command1_Click()
Dim theOct() As String
theOct = Split(Text1.Text, ".")
If UBound(theOct) <> 3 Then
  MsgBox "Fill correct: xxx.xxx.xxx.xxx"
  Exit Sub
End If
'now do your calculation on each cell of array
'theOct(0)
'theOct(1)
'theOct(2)
'theOct(3)
End Sub

---

;)
Cesare I.