维护好铁口是炉前工作的关键，如果维护不好，就会造成铁口工作失常，诱发各种出铁事故，危害极大。

下面程序对已知数组b，删除数组中某指定值的元素，但程序不完整，请填空。
Private Sub Command1_Click()
Dim m, n%, i%, j%
m=Array(1,3,5,29,34,50)
n=Val(InputBox("请输入要删除的值"))
For i=0 To UBound(m)
If (12) Then
For j=i+1 To UBound(m)
(13)
Next j
ReDim Preserve (14)
MsgBox("删除完成")
Exit For
End If
Next i
End Sub