Private Function Split(cadena, delm1, delm2 As String) As String
Dim pos1, pos2 As Integer
Dim ext, sfinal As String
sfinal = ""
pos1 = InStr(cadena, delm1)
If pos1 <> 0 Then
ext = Mid(cadena, pos1 + Len(delm1), Len(cadena) - Len(delm1))
pos2 = InStr(ext, delm2)
If pos2 <> 0 Then
sfinal = Mid(ext, 1, pos2 - 1)
End If
End If
Delimitador = sfinal
End Function
Hola chicos les traigo un simple split en vb6, nunca antes habia trabajado en este lenguaje me decidi probarlo
Skype:crack8111