.NET 4.x Ошибка открытия файла в плеере - Visual Basic .NET

 Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
    Dim name As String
    Dim name2 As String
    Dim time As String
    Dim a As String
 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        OpenFileDialog1.InitialDirectory = "D:"
        On Error Resume Next
        OpenFileDialog1.Title = "Open a Music File"
        OpenFileDialog1.Filter = "Music file (*.mp3)|*.mp3|All files (*.*)|*.*"
        OpenFileDialog1.ShowDialog()
        On Error Resume Next
        name = OpenFileDialog1.FileName
        On Error Resume Next
End Sub
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        On Error Resume Next
        name2 = "play " & name
        Call mciExecute(name2)
        On Error Resume Next
        Timer2.Enabled = True
        Dim w As New WMPLib.WindowsMediaPlayer
        Dim m As WMPLib.IWMPMedia = w.newMedia(name)
End sub