Plamplinas...

Option Explicit
'Declaraciones para 32 bits
Public Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Declare Function WritePrivateProfileString Lib "Kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Public Function LeerIni(lpFileName As String, lpAppName As String, lpKeyName As String, Optional vDefault) As String
'Los parámetros son:
'lpFileName: La Aplicación (fichero INI)
'lpAppName: La sección que suele estar entrre corchetes
'lpKeyName: Clave
'vDefault: Valor opcional que devolverá
' si no se encuentra la clave.
'
Dim lpString As String
Dim LTmp As Long
Dim sRetVal As String

'Si no se especifica el valor por defecto,
'asignar incialmente una cadena vacía
If IsMissing(vDefault) Then
lpString = ""
Else
lpString = vDefault
End If

sRetVal = String$(255, 0)

LTmp = GetPrivateProfileString(lpAppName, lpKeyName, lpString, _
sRetVal, Len(sRetVal), lpFileName)
If LTmp = 0 Then
LeerIni = lpString
Else
LeerIni = Left(sRetVal, LTmp)
End If
End Function

Public Sub GuardarIni(lpFileName As String, lpAppName As String, lpKeyName As _
String, lpString As String)
'Guarda los datos de configuración
'Los parámetros son los mismos que en LeerIni
'Siendo lpString el valor a guardar
'
Dim LTmp As Long

LTmp = WritePrivateProfileString(lpAppName, lpKeyName, lpString, _
lpFileName)
End Sub

Con estas funciones en visual basic conseguimos copiar y registrar al directorio del sistema de windows todas las librerias ubicadas en el directorio dlls. Es ideal para distribuir aplicaciones en una red. De esta forma no tendremos que ir instalado la apliación equipo por equipo, solo tendremos que crear un acceso directo y automaticamente se registran todas las dlls necesarias para que se ejecute.

Public Sub ActualizarDlls()
'objeto para el manejo de ficheros
'y directorios en visual basic
Dim dlls As New Scripting.FileSystemObject

'ruta donde se encuentran las dlls originales
Set directorio = dlls.GetFolder(App.Path & "\dlls")

On Error Resume Next
' por cada fichero en el directorio
'dlls copiar fichero y registrar dll
For Each fichero In directorio.Files
'copiar la dll al directorio
'de sistema de windows
dlls.CopyFile App.Path & "\dlls\" & fichero.Name, RutaDelSistema & "\" & fichero.Name
'registar la dll copia
Shell RutaDelSistema & "\regsvr32 /s " & RutaDelSistema & "\" & fichero.name, vbHide
Next

End Sub

'funcion que devuelve
'la ruta del directorio del sistema de windows
Public Function RutaDelSistema()

Dim Car As String * 128
Dim Longitud, Es As Integer
Dim Camino As String

Longitud = 128

Es = GetSystemDirectory(Car, Longitud)
Camino = RTrim$(LCase$(Left$(Car, Es)))
RutaDelSistema = Camino
End Function

Tras tirarme de los pelos y meter los dedos en el enchufe 5 o 6 veces (perdí la cuenta) he encontrado este enlace
http://msdn.microsoft.com/vstudio/downloads/tools/vsi11/default.aspx a través del cual podrás acceder al Microsoft Visual Studio Installer 1.1. Con el prodrás realizar paquetes de instalación de tus proyectos desarrollados en Visual Basic 6. Si alguien sabe donde puedo encontrar la versión española que por favor me lo diga, con la inglesa mis usuarios finales de mis proyectos no se enteran mucho.