Your FileOpen method is calling 4 functions:

ValidFile(FileName) = False Then Exit Sub
strShorFileName = GetShortFileName(strFileName)
nReturn = mciSendString("Open " & strShorFileName & " wait", "", 0, 0)
nReturn = mciSendString("setaudio " & strFileName & " volume to " & (lngVolume * 10), "", 0, 0)

Also, your SoundPlay method has bunch of activities going on there as well...


It doesn't look like it should delay you but try excuting mciSendString or PlaySound directly to make sure either function works without delays.