Timer Alarm

[acms]

im having trouble gettin a wav fiile to play heres my code
i uploaded the vbp files

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub
 
Private Sub Command2_Click()
Timer1.Enabled = False
End Sub
 
Private Sub Command3_Click()
Dim timer
timer = Text4
Open App.Path & "\" + timer + ".txt" For Output As #1
Write #1,
Close #1
 
End Sub
 
Private Sub Command4_Click()
If alarm1.Text = Text1.Text And alarm2.Text = Text2.Text And alarm3.Text = Text3.Text Then play.Enabled = True
 
End Sub
 
Private Sub Command5_Click()
play.URL = Text6.Text
End Sub
 
Private Sub Form_Load()
 
End Sub
 
Private Sub Timer1_Timer()
Text3.Text = Text3.Text + 1
If Text3.Text = 60 Then
Text2.Text = Text2.Text + 1
Text3.Text = 0
If Text2.Text = 60 Then
Text1.Text = Text1.Text + 1
Text2.Text = 0
If alarm1.Text = Text1.Text And alarm2.Text = Text2.Text And alarm3.Text = Text3.Text Then play.Enabled = True
End If
End If
 
End Sub
 
Private Sub WindowsMediaPlayer1_OpenStateChange(ByVal NewState As Long)
 
End Sub