[VB6] Operazioni con stringhe

[GudFella]

dim iPos as byte

iPos = instr(sDeposito, "_")

if iPos>0 then
    iPos = iPos+1
    sDeposito = mid(sDeposito, iPos, len(sDeposito))
end if