Agregar al Registro de Windows tipo REG_DWORD

[Pitoniso]

resultado = RegOpenKeyEx(HKEY_CURRENT_USER, "Software\SimonTatham\PuTTY\Sessions\Default%20Settings", 0, KEY_ALL_ACCESS, hKey)
    Dim Port
    Port = Val(Text4)
   
    If resultado = ERROR_SUCCESS Then
        RegSetValueEx hKey, "ProxyPort", 0, REG_DWORD, Port, 4
        End
    End If

Lo pongo asi encuero pero ya las funciones estan declaradas con las constantes codigo como tal funciona lo que sencillamente no me agrega el valor que deseo....

Como ven en la linea RegSetValue.... el valor DWORD lo quiero tomar de un Text, ya lo converti en numero y no me lo agrega me agrea un 5... pq sucede esto, sin embargo le pongo un numero en ves de la Variable "Port" y pincha bien... bueno diganme algo....grx