Si on veut laisser le temps à l'appli DOS de s'éxécuter, il faut utiliser une API
' shell DOS de trsfr3.exe
iInstanceHandle = Shell("c:\chimie\rmn\trsfr3.exe", 1)
Do While GetModuleUsage(iInstanceHandle) > 0
X = DoEvents()
Loop
C'était sous VB3. En VB6, c'est peut-être plus "cool" ?