新手遇到问题，请帮帮忙

当用户用listbox选我给的选择指数，怎样在textbox上实施“当用户已经选了，textbox 的 text+1”,但每个listbox只能给textbox加一次。
我错误得code
 If Me.lstfirst.SelectedIndex <> 0 Then
            subject += 1
            Me.txtsubject.Text = subject
        End If
中文不好请见谅