I am trying to make a Userform to play theatrical cues on the cheap. I have the beginnings of the code, but it produces an error (Highlighted) I'm not new to userforms, etc, but using sound...not so much.

Here is the code as it is now. Any help is appreciated!!!

Option Explicit

Dim myPlayList As Object, myMedia As Object
Dim wmP As WindowsMediaPlayer
Dim MySong As String

Private Sub UserForm1_Initialize()
Set wmP = WindowsMediaPlayer2
End Sub

'~~> Play 1st Song
Private Sub CommandButton1_Click()
MySong = "C:\PODIUMAUDIO-ACTUAL\GoSong.wav"
PlaySong "GoSong.wav"
End Sub

'~~> Play 2nd Song
Private Sub CommandButton2_Click()
MySong = "C:\PODIUMAUDIO-ACTUAL\VO1-Actual.wav"
PlaySong "VO1-Actual.wav"
'MySong
End Sub

' With wmP
.Controls.stop
.currentPlaylist.Clear
Set myPlayList = .playlistCollection.newPlaylist("PersonalPlayList")
.currentPlaylist = myPlayList
Set myMedia = .mediaCollection.Add(sng)
.currentPlaylist.insertItem (.currentPlaylist.Count), myMedia
.Controls.Play
End With
End Sub