Visual Basic - AYUDA CON MID$!!!!!!

Hola!!!!!!!
Tengo que modificar esta función para que me muestre la fecha del sistema y no se como hacerlo, si alguien me ayuda
Gracias

Sub MostrarArchivos_Click ()
ArchivoSelec = ""
frmArchivos.show 1
If Not ArchivoSelec = "" Then
NomLocalStock = Left$(ArchivoSelec, Len(ArchivoSelec) - 6)
NroLocalStock = Mid$(ArchivoSelec, Len(ArchivoSelec) - 5, 2)
End If
End Sub

Saludos.

No se a que te refieres, si lo que quieres es la fecha del sistema, la funcion DATE, te devuelve la fecha del sistema.

si lo que quieres es saber la fecha de creacion o modif de un archivo, es un poco mas complicado

1º Creas una referencia a Microsoft Scripting Runtime.
2º Usando el objeto filesystem :

dim fso as new filesystemobject
dim archivo as file
dim fecha as date

set archivo = fso.getfile("c:\archivo.txt")
fecha = archivo.datecreated

salu2