It is asking me to install the ocx...

Ok do this for me...

In your cmdChange click event add these 4 lines in red. Then run your program. It will create a sample.txt in c:\
Upload that...

Code:
Private Sub cmdChange_Click()

    strKeyBase = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\DriveIcons\"
    strKey = strKeyBase & txtDrive.Text & "\DefaultIcon"
    strKeyValue = txtIconPath.Text
    
    Open "c:\sample.txt" For Output As #1
    Print #1, strKey
    Print #1, strKeyValue
    Close #1