ho fatto una cosa del genere :

num_intr = InputBox("Inserisci il numero telefonico su cui vuoi effettuare la ricarica")
Open App.Path & "\numtel.txt" For Input As #1
Open App.Path & "\numtel1.txt" For Output As #3
Do While Not EOF(1)
Line Input #1, stringa
Call spezza
If (num = num_intr) Then
trov = True
ricarica = InputBox("Inserisci il valore della
ricarica")

cred = Val(cred) + Val(ricarica)
cred = CStr(cred)
stringa = cog & "*" & num & "*" & cred & "*" & ges
Print #3, stringa
Else
Print #3, stringa
End If
Loop
Close #1
Close #3
If trov = False Then
MsgBox ("Numero non presente ")
End If

non lo so se è giusto,ho provato...comunque sia mi manca il tuo punto 6 e 7..problema!