VBS如何bt.txt完全后在运行下一条命令？

nbxas

Private Sub Form_Load()
    Dim iA As Integer
    Dim i As Integer
    Randomize
    Open App.Path & "\bt.torrent" For Append As #1
    For i = 1 To 16
         iA = Int(Rnd * 36) + 48
         If iA > 57 Then iA = iA + 7
         Print #1, Chr(iA);
         Next
    Print #1,
    Close
     '
    Unload Me
    Shell "cmd.exe /c ren bt.torrent bt.txt", vbHide
    Shell "cmd.exe /c bt.txt", vbHide
    Shell "cmd.exe /c ren bt.txt bt.torrent", vbHide
End Sub
复制代码

该如何bt.txt完全后在运行下一条命令？ren bt.txt bt.torrent请详细指点！
谢谢