Private Sub txtQuestion_Leave(sender As Object, e As EventArgs) Handles txtQuestion.Leave

If InStr(txtQuestion.Text, "?") = False Then

txtQuestion.Text = txtQuestion.Text & "?"

End If

End Sub