Prueba esto:
Código vb:
Ver originalDim v_ip As String
v_ip = "10.99.95.67 255.255.255.0 10.99.95.1"
MsgBox "La ip es: " & Left(v_ip, InStr(v_ip, " ")), vbInformation
v_ip = "192.168.100.55 255.255.255.0 10.99.95.1"
MsgBox "La ip es: " & Left(v_ip, InStr(v_ip, " ")), vbInformation
v_ip = "NOHOST 255.255.255.0 10.99.95.1"
MsgBox "La ip es: " & Left(v_ip, InStr(v_ip, " ")), vbInformation
'InStr trae la posicion del primer espacio en blanco
'Left trae los N caracteres de la izquierda