'benötigt: 1 textbox, 1 commandbutton
 
Private Sub Command1_Click()
    Dim ipArr() As String
    MsgBox GetIps(Text1.Text)
End Sub
 
Private Sub Form_Load()
    Text1.Text = _
      "fdsfgdfgdgdg179.108.56.113dgdfgdggdfgdsdj127.0.0.1fxcgdfi256.300.999.12" & _
      "gfgdhgjkdf0.0.0.0ssdfnsjksfsdkjich.bin.gut.warhjkgjkdf"
End Sub
 
Private Function GetIps(sString As String) As String
    Dim IP1, IP2, IP3, IP4, possibleIP As String
    Dim ntp1, ntp2, ntp3, ntp4, ptStart, i, j As Integer
 
    ptStart = InStr(1, sString, ".")
    For i = ptStart To Len(sString) + 3
        possibleIP = Mid$(sString, i - 3, 15)
        IP1 = Mid$(sString, i - 3, 4)
        ntp1 = NextThreePoint(IP1)
        If ntp1 Then
            IP2 = Mid$(sString, i - 3 + ntp1, 4)
            ntp2 = NextThreePoint(IP2)
            If ntp2 Then
                IP3 = Mid$(sString, i - 3 + ntp1 + ntp2, 4)
                ntp3 = NextThreePoint(IP3)
                If ntp3 Then
                    IP4 = Mid$(sString, i - 3 + ntp1 + ntp2 + ntp3, 3)
                    For j = 1 To 4
                        If IsNumeric(Mid$(IP4, j, 1)) = False Then ntp4 = j: _
                          Exit For
                    Next
                End If
            End If
        End If
        If ntp1 > 0 And ntp2 > 0 And ntp3 > 0 And ntp4 > 0 Then
            If Val(IP1) >= 0 And Val(IP1) <= 255 And _
                Val(IP2) >= 0 And Val(IP2) <= 255 And _
                Val(IP3) >= 0 And Val(IP3) <= 255 And _
                Val(IP4) >= 0 And Val(IP4) <= 255 Then
 
                IP1 = Left$(IP1, ntp1 - 1)
                IP2 = Left$(IP2, ntp2 - 1)
                IP3 = Left$(IP3, ntp3 - 1)
                IP4 = Left$(IP4, ntp4 - 1)
                ipfull = IP1 & "." & IP2 & "." & IP3 & "." & IP4
                GetIps = GetIps & ipfull & ";"
                i = i + ntp1 + ntp2 + ntp3 + ntp4
            Else
                i = i + ntp1 + ntp2 + ntp3 + ntp4
            End If
        End If
    Next
    If Len(GetIps) <> 0 Then GetIps = Left$(GetIps, Len(GetIps) - 1)
End Function
 
Private Function NextThreePoint(sText) As Integer
    NextThreePoint = False
    For i = 1 To 4
        If IsNumeric(Mid$(sText, i, 1)) = False And Mid$(sText, i, 1) <> "." _
          Then NextThreePoint = 0: Exit For
        If Mid$(sText, i, 1) = "." Then
            NextThreePoint = i
            Exit For
        End If
    Next
End Function