『求助』v调用ansys的后台运行程序

如何用vb后台调用ansys，我写的程序但是由错误在e盘中没有生成的beam.out文件，请教高手，我急用啊？
Private Sub Command1_Click()
Dim Dstr As String
Dim Lstr As String
Dim Astr As String
Dim pid As Long, pHnd As Long, ret


On Error GoTo ErrHandler
pid = Shell("c:\Program Files\Ansys Inc\v90\ANSYS\bin\intel\ansys90.exe -b -p ane3fl -i e:\data\ex.text -o e:\data\beam.out", 1)
pHnd = OpenProcess(SYNCHRONIZE, 0, pid)
If pHnd <> 0 Then
Do
ret = WaitForSingleObject(pHnd, 0)
DoEvents
Loop While ret = WAIT_TIMEOUT
CloseHandle pHnd
End If
ErrHandler:
MsgBox Err.Description
Exit Sub
End Sub