[VB6]parametri

[socialux]

Ho la seguente subroutine creata per spezzare una stringa composta da: cognome*numero*credito*gestore

Private Sub spezza()

'estraggo cognome
pos = InStr(1, stringa, "*")
cog = Mid(stringa, 1, pos - 1)
'estraggo numero
pos1 = InStr(pos + 1, stringa, "*")
num = Mid(stringa, pos + 1, pos1 - (pos + 1))
'estraggo credito
pos2 = InStr(pos1 + 1, stringa, "*")
cred = Mid(stringa, pos1 + 1, pos2 - (pos1 + 1))
'estraggo gestore
ges = Mid(stringa, pos2 + 1)

End Sub

Ora quando la richiamo dovrei usare i passaggi di parametri

'input numero di telefono
num_intr = InputBox("Inserisci numero telefonico")

'apro il file numtel
Open App.Path & "\numtel.txt" For Input As #1
Do While Not EOF(1) And (trov = False)
Line Input #1, stringa
'richiamo subroutine spezza
Call spezza [QUA DENTRO CHE CI METTO ???]

If (num_intr = num) Then
trov = True
'se è presente apro il file rispgest
Open App.Path & "\rispgest.txt" For Input As #2
Do While Not EOF(2) And (trov1 = False)
Line Input #2, stringa
pos = InStr(1, stringa, "*")
gestore1 = Mid(stringa, 1, pos - 1)
'controllo se il gestore relamente esiste
If (gestore1 = ges) Then
trov1 = True
'se esiste apro il messaggio relativo al gestore
MsgBox (stringa)
End If]