vba to copy column data from excel to notepad and separate data with semi colons?

I was hoping for some assistance with a macro that would copy data in a particular column in excel and then copy it to notepad inserting semi colons between the data. Ideally I would like the data in notepad
to look like 1111111;1111112;11111113; etc instead in a list like (on top of one another) format; though if the first choice isn't possible then the list type would be my second choice.

I found this code which pulls the data into notepad in a list type format (my 2nd choice) but i would need it to include the semi colons.

Sub TestNotePad()
     '// The range to copy - written freehand so change as needed
     Range("P2:P100").Copy
     
     '// Start Notepad with focus
     Shell "notepad.exe", vbNormalFocus
     
     '// Send the standard CTRL+V. Pastes to the
     '// active window (Notepad, hopefully)
     SendKeys "^V"
     '// Back to the top of the file
     SendKeys "^{HOME}"
     
End Sub

Any help would be appreciated!