En un formulario después de escribir en un cuadro de texto como salir del formulario con una macro
En un formulario después de escribir en un cuadro de texto tengo una macro Private Sub TextBox1_AfterUpdate() que comprueba si existe un fichero, y en caso contrario quiero salir del formulario, lo he intentado con unload y el nombre del formulario pero me da error.
Adjunto la macro:
Private Sub TextBox1_AfterUpdate()
' PONER UNA IMAGEN EN IMAGE1 BUSCANDO LA IMAGEN CON EL EXPLORADOR DE WINDOWS
Dim Ruta As String
'Ruta = Application.GetOpenFilename
DIBUJO1 = TextBox1.Value & ".JPG"
Application.ScreenUpdating = False
Dim FilePath As String
FilePath = ""
On Error Resume Next
FilePath = Dir("C:\Users\usuario\Desktop\empresa zoila\TPV TIENDA\imagenes para programa\ARTICULOS FOTOS\" & TextBox1.Value & "\" & DIBUJO1)
On Error GoTo 0
If FilePath = "" Then
MsgBox "NO EXISTE LA IMAGEN, DEBES CREARLA PRIMERO Y LUEGO VOLVER A ARTICULO NUEVO, PULSA EN EL FORMULARIO EL BOTON CANCELAR", vbInformation, "Kutools for Excel"
' COMO SALIR DEL FORMULARIO ?????????
else