Sub BtnBuscarCod_Click
If EdBuscaCodigo.Text.Length > 0 And EdBuscaCodigo.Text.Length <= 3 Then
Dim CloseKey As IME
CloseKey.Initialize("")
CloseKey.HideKeyboard
ToastMessageShow("Buscando código.", False)
Else
ToastMessageShow("Debe ingresar un numero mayor que 0 y menor o igual a 3.", False)
End If
End Sub