Fijar una constante para indicar el disco virtual que voy a utilizar, quiero que se use en todos los módulos

Public Sub INGRESA_DIRECTORIO()
Static nDir As String 'Para fijar el Directorio
nDir = InputBox(“nDir”, "Ingrese el disco + directorio")
Range("U15") = nDir

End Sub