Convert to Module

To convert your existing code into a reusable module in VBA, you can follow these steps:

1. Navigate to your Visual Basic for Applications (VBA) editor.

2. Insert a new module by clicking "Insert" in the menu and choosing "Module."

3. Copy and paste your code into the new module.

4. Modify the code to accept the API URL and Port No as parameters for flexibility.

Here's an example of how you can structure your code into a module function that returns the image:

Public Function RetrieveImageFromAPI(apiUrl As String, portNo As Integer) As StdPicture
    Dim objHP As Object
    Set objHP = CreateObject("MSXML2.XMLHTTP")
    
    Dim username As String
    Dim password As String
    Dim url As String
    
    url = "http://" & apiUrl & ":" & portNo & "/ISAPI/streaming/channels/01/picture"
    username = "admin"
    password = "12345."
    
    objHP.Open "GET", url, False, username, password
    objHP.Send
    
    Dim responseBody As Variant
    responseBody = objHP.responseBody
    
    ' Save the image to a file
    Dim outputStream As Object
    Set outputStream = CreateObject("ADODB.Stream")
    outputStream.Type = 1 ' Binary
    outputStream.Open
    outputStream.Write responseBody
    outputStream.SaveToFile "C:\image.jpg", 2 ' 2: Overwrite if exists
    outputStream.Close
    
    Dim img As StdPicture
    Set img = LoadPicture("C:\image.jpg") ' Load your image here
    
    Set RetrieveImageFromAPI = img
End Function

With this module function, you can call `RetrieveImageFromAPI(apiUrl, portNo)` from any part of your code by providing the API URL and Port No as parameters. It will return the image as a `StdPicture` object.

This modular approach allows you to reuse the image retrieval functionality without duplicating code and makes it easier to maintain and manage your VBA project.