por que no lo usas haci:
Código:
If monto = "" Then
MsgBox "Ingrese el Monto y Luego Click En Procesar...", vbInformation, "Atención..."
monto.SetFocus
Exit Sub
End If
y lo que se oculta tu formulario si que es raro.
espero te sirva y si no nos dices una saludo.