Precisamente, de eso se trata la cosa, ejemplo:
Código vb:
Ver originalPrivate Sub BotonAceptar_Click()
Dim valor As String
Valor = Trim(CuadroDeTexto.Text)
If Valor = "" Then
MsgBox "Teclea el texto a buscar"
Else
' Aquí realizas las búsqueda
End If
End Sub