VBA Dropbox links

Hello!

I could use some help with this, atm it lets me browse for a file on my computer and puts the link to file in a textbox.

The problem is when I select a file in my dropbox. I want the output link in the textbox to be the dropbox online link instead of the local file link, is it possible ?

This is the code I got for my local files (I only want it to output dropbox links instead)

Private Sub CommandButton21_Click()
Dim Filter As String, Title As String
Dim FilterIndex As Integer
Dim Filename As Variant
Filter = "View All Files (*.*),*.*,"


FilterIndex = 1
Title = "Select a File to Open"
ChDrive ("C")
ChDir ("C:\")
With Application
    Filename = .GetOpenFilename(Filter, FilterIndex, Title)
    ChDrive (Left(.DefaultFilePath, 1))
    ChDir (.DefaultFilePath)
    TextBox21.Text = Filename
End With
End Sub

Have a good one!

/Johan