Código: Seleccionar todo

'Autor: Metal_Kingdom
'Lenguaje: VB6
'Web: udtools.net
'Finalidad: Separar datos de cadena.

Function sSplit(cadena As String, delimitador As String) As String
Dim a As String, b As String
a = InStr(1, cadena, delimitador) + Len(delimitador)
b = Mid(cadena, a, Len(cadena) - a + 1)
If a = "1" Or a = "" Then Exit Function
sSplit = b
End Function

Código: Seleccionar todo

MsgBox (sSplit("vaya bonitos coños peludos", "bonitos")
'Devuelve  " coños peludos"