Sub returning a Boolean value

Sub btnSearch_Click
   Dim selection, search_string As String
   
   selection = spnrSearchBy.SelectedItem.Trim
   search_string = txtSearch.Text.Trim

   If selection = "Area" OR selection = "Service Name" OR selection = "Hotline" Then
      If NormalInputVerify = False Then
           txtSearch.RequestFocus
           Return
        End If
   Else If selection = "Cost" Then
      CostInputVerify
   End If

End Sub   'End of the btnSearch_Click Sub

Sub NormalInputVerify As Boolean
   If txtSearch.Text.Trim.Length = 0 Then
      ToastMessageShow("Please enter a search string", False)
      Return False
   Else If txtSearch.Text.Trim.Length < 3 Then
      ToastMessageShow("Search string must be at least 3 characters long", False)
      Return False
   End If
    Return True
End Sub