Potresti fare una cosa del genere:
codice:
dim Valore as Long

private sub command1_click()
Open "c:\miofile.txt" For Input As #1
  Do While Not (EOF(1) = True)
    Line Input #1, valore
  loop
text1.text = valore 'solo se lo vuoi visualizzare
close #1
valore = valore + 1
Open "c:\miofile.txt" For output As #1
  print #1, valore
close #1
fammi sapere cosa ne pensi..

ciao