[sosoover09]

 Dim strRating As String
        strRating = InputBox("Hotel Rating", "Enter Here")

        For intCounter As Integer = 1 To 6
            lblStars.Text = lblStars.Text &
                "*"

        Next intCounter


        
        If strRating >= 7 Then

            MsgBox("Enter Hotel Rating again", _
                   MsgBoxStyle.OkOnly Or MsgBoxStyle.Information, _
                   "Hotel Rating")
        End If

    End Sub 

[modi123_1]

Do not create duplicate topics. Also - for future topics that you do not have threads on - it is helpful if you include more verbiage on what is the problem, what error messages you are getting, what lines, and what it is doing vs should be doing.