ada0915さん、こんばんは。

＞ＰＢでＷＡＶＥファイル（音声ファイル）をコントロールしたいと思いまして、mciSendStringというＡＰＩ
＞関数をみつけ、また、ＷＥＢでVisualBasicについて説明をみつけてためしたところ、うまくいきません。
＞（以下、st_1.textに値が返ってきません）

こちらは pb8 ですが少し確認したところ、以下で値を取得することができました。
もしかするとまだ問題があるかも知れませんが、取り敢えずご報告まで。

//ＡＰＩ関数の宣言
Function long mciSendStringA(string lpstrCommand, ulong lpstrReturnString,UnsignedLong  
uReturnLength,UnsignedLong  hwndCallback ) Library \"winmm.dll\"
Function ULong lstrcpyn(ref string dst,string src, UnsignedLong length) Library \"kernel32.DLL\" 
Alias for \"lstrcpynA\" //アドレス取得用
Subroutine MemCopy(ref string dest,long src, Long cbCopy) Library \"Kernel32.DLL\" Alias 
for \"RtlMoveMemory\" //ポインタの値取得用

//以下クリックコマンド
string RetBuffer
retbuffer = Space(20)
string MCICommandString

string str_Filename
str_Filename = \"E:\\FILENAME.WAV\" //ファイル名

Long ll_sts
UnsignedLong lul_RetBuffer

MCICommandString = \'status \"\' + str_Filename + \'\" length\'
lul_RetBuffer = lstrcpyn(RetBuffer, RetBuffer, 0)
ll_sts = mciSendStringA(MCICommandString, lul_RetBuffer, Len(RetBuffer), 0)
MemCopy(RetBuffer, lul_RetBuffer, Len(RetBuffer))

st_1.text = string(double(RetBuffer)/1000)