In your references check the Registry Access Functions (this uses the regtool5.dll). The in your code you can read a value with the following:

Private Sub Form_Load()
Dim ReadStatus As Boolean
Dim ReadValue As String

    ReadValue = ""
    ReadStatus = GetKeyValue(HKEY_LOCAL_MACHINE, "Software\NHA\Workload\Settings", "LastUserID", ReadValue)
    Debug.Print ReadValue

End Sub