めめさん、こんばんは。

梶さんの方法でとりあえず取得できましたので
めめさんの方法はまだ試していませんが、
早めに試してみたいと思います。
親切なご回答、ありがとうございました。

＞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)
＞
＞
＞