Private Declare Function RegTestDLL Lib "Test.DLL" Alias _  
    "DllRegisterServer"() As Long  
Private Sub Command1_Click()
Const ERROR_SUCCESS =  0 &
Dim retCode As Long
On Error Resume Next  ' включаем программную обработку ошибок
ChDrive "C:"        ' Устанавливаем нужный
ChDir "C:\MyApp"    ' каталог текущим
regCode = RegTestDLL()  ' регистрация Test.DLL
' анализ возможных ошибок
If Err <>  0  Then
  MsgBox "Файл Test.DLL не найден"
Else  
  If regCode <> ERROR_SUCCES Then  
    MsgBox "Операция регистрации не выполнена"
  End If  
End If  
End Sub