ＰＢでＷＡＶＥファイル（音声ファイル）をコントロールしたいと思いまして、mciSendStringというＡＰＩ関数をみ
つけ、また、ＷＥＢでVisualBasicについて説明をみつけてためしたところ、うまくいきません。
（以下、st_1.textに値が返ってきません）
ＰＢでの記述に何か問題があるかと思いますが・・・どなたかご教授をよろしくお願いします。

【VisualBasicのスクリプト】
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

\'■ファイルの長さを秒単位で返す。
Private Function GetLength(FileName As String) As Double
    Dim RetBuffer As String * 20
    Dim MCICommandString As String
    MCICommandString = \"status \"\"\" & FileName & \"\"\" length\"
    Call mciSendString(MCICommandString, RetBuffer, Len(RetBuffer), 0)
    GetLength = Val(RetBuffer) / 1000
End Function

【ＰＢでの私のスクリプト】
//ＡＰＩ関数の宣言
Function long mciSendStringA(string lpstrCommand,string lpstrReturnString,long uReturnLength,long 
hwndCallback) Library \"winmm.dll\"

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

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

MCICommandString = \'status \' + str_Filename + \'length\'
mciSendStringA(MCICommandString,RetBuffer,Len(RetBuffer), 0)

st_1.text = string(double(RetBuffer)/1000)　　　　　//←値が返ってこない