Como hacer para que se vea num contador

hola, me enviaste un código el cual modifique para poder adaptarlo, es el siguiente el cual crea un contador y hace que se guarde automaticamente, con lo cual al reiniciar el programa continua con el numero subsiguiente, yo lo adapte para que coloque en un label2 el numero, ahora bien... La duda es la siguiente... Como hago para que al reiniciar el formulario, me aparezca el numero que sigue en el contador, por ahora para que aparezca yo debo presionar el boton para que suba un numero el contador y se coloca en 10 por ejemplo, pero al reiniciar el programa no me aparece el ultimo numero, sino que yo tengo que presionar el boton para que aparezca ahora el 11, lo que deseo es que quede a la vista el ultimo numero usado, te envio el codigo para que lo pruebes

Private Sub contador()
Dim i As Integer
Dim n_File As Integer
Dim Contenido As String
If Dir(App.Path & "\datos.txt") = "" Then
Open App.Path & "\datos.txt" For Output As #1
Print #1, 0;
Close #1
End If
'Número de archivo libre
n_File = FreeFile
Open App.Path & "\datos.txt" For Input As n_File
'Lee todo los datos del archivo y lo almacena en la variable
i = Input$(LOF(n_File), #n_File)
'Cierra el archivo abierto
Close n_File
i = i + 1
Open App.Path & "\datos.txt" For Output As #1
Print #1, i;
Close #1
Label2 = i
End Sub