' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Private Function StringToLong(addr As String) As Long Dim parts() As String parts = Split(addr, ".") StringToLong = CLng(parts(0)) * 256 * 256 * 256 + CLng(parts(1)) * 256 * 256 + CLng(parts(2)) * 256 + CLng(parts(3)) End Function Private Sub Check_Click() Dim netval As Long netval = StringToLong(Net.Text) Dim hostval As Long hostval = StringToLong(Host.Text) Dim netsize As Integer netsize = 2 ^ (32 - CInt(Size.Text)) If (netval <= hostval) And (hostval <= netval + netsize - 1) Then MsgBox "Same net" Else MsgBox "Different net" End If End Sub