Visual Basic - ayuda vb6

Hola quería pedirles ayuda puesto que estoy haciendo de un programa que hace un ping y el resultado es este:

dentro de text1
Haciendo ping a mbukana.sytes.net [88.1.44.230] con 32 bytes de datos:

Respuesta desde 88.1.44.230: bytes=32 tiempo=1ms TTL=64

Estadísticas de ping para 88.1.44.230:
Paquetes: enviados = 1, recibidos = 1, perdidos = 0
(0% perdidos),
Tiempos aproximados de ida y vuelta en milisegundos:
Mínimo = 1ms, Máximo = 1ms, Media = 1ms

y lo que quería hacer es obtener la ip, como pues obteniendo la string del resultado que se encuentra entre [] asi el resultado que me de sea 88.1.44.230

Para obtener la dirección que está entre los corchetes cuadrados [ ] la rutina sería la siguiente:

Private Function GetIP(Byval cadena As String) As String
Dim inicio As Integer
Dim final As Integer

inicio = InStr (1, cadena, "[") + 1
Final = InStr (1, cadena, "]")

GetIP = Mid(cadena, inicio, final - inicio)
End Function

Y llamas la función:

MsgBox "La dirección es: " & GetIP(Text1.text)