Split i VB 5

Du kan selv skrive den, f.eks.:

Public Function Split(splitchar as char, in as string, out1 as string, out2 as string)
  dim pos as integer
  pos = Instr(in, splitChar)
  out1 = Mid(in, 1, pos - 1)
  out2 = Mid(in, pos + 1)
End Function

Kaldes f.eks.: split(\"|\", inStr, outStr1, outStr2)

DET VIRKER IKKE !

Fandt selv ud af det:
http://www.planet-source-code.com/xq/ASP/txtCodeId.9165/lngWId.1/qx/vb/scripts/ShowCode.htm

Troede jeg, men det virkede ikke til det jeg skulle bruge det til !

prøv her:

http://killervb.com/code/commonbas/Split.htm

SPM lukket da jeg fandt en anden løsning