Регистрация DLL в процедуре

дллельки находятся в системной папке

s = Space(255)
Ret = GetSystemDirectory(s, 255)
s = Left$(s, Ret)
Shell "regsvr32 /s " & s & "\123.dll"
Shell "regsvr32 /s " & s & "\456.dll"
Shell "regsvr32 /s " & s & "\789.dll"

если их перенести в папку, где находится сам файл мдб, то достаточно уменьшить код до

Shell "regsvr32 /s 123.dll"
Shell "regsvr32 /s  456.dll"
Shell "regsvr32 /s 789.dll"

или как-то по другому надо написать?

Может пригодится Программная регистрация ActiveX DLL и OCX

Прежде чем регистрировать библиотеки, нужно проверить их наличие (отсутствие) в системе. Imho простая проверка наличия файла в %windir%\system32 явно не достаточна. Как из VB проверить, зарегистрирована ли соответствующая библиотека?