Dim oPlayer
Set oPlayer = CreateObject("WMPlayer.OCX")

' Play audio '
oPlayer.URL = "4.mp3"

result=MsgBox ("notes", vbInformation+VbOkOnly, "header" )
do 
	oPlayer.controls.play 
  	WScript.Sleep 100''
loop while oPlayer.playState = 1 ' 1 = Stopped '


' Release the audio file'
oPlayer.close

Option Explicit
Dim SoundFile
Dim result
SoundFile = "3.mp3"
Call Play(SoundFile)
'*******************************************'
Sub Play(SoundFile)
    Dim oPlayer
    Set oPlayer = CreateObject("WMPlayer.OCX")
' Play audio
    oPlayer.URL = SoundFile
    oPlayer.settings.volume = 100
    oPlayer.settings.setMode "loop", True
    result=MsgBox ("Call John Monday", vbOKOnly + vbSystemModal, "Just remind to you" )
    do while result <> VbOk   
    oPlayer.controls.play 
    While oPlayer.playState <> 1 ' 1 = Stopped
        WScript.Sleep 100
    Wend
    loop
    oPlayer.close
End Sub