Can i make this code a bit smaller : I have created this code to see how many textboxs have something inputed in it and then to display the total in a message box, i want to know if i can make my below code any smaller by may putting it in a loop?

Thanks

Dim TotalRooms = 0

        If String.IsNullOrEmpty(txtRoom1.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If
        If String.IsNullOrEmpty(txtRoom2.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If
        If String.IsNullOrEmpty(txtRoom3.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If
        If String.IsNullOrEmpty(txtRoom4.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If
        If String.IsNullOrEmpty(txtRoom5.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If
        If String.IsNullOrEmpty(txtRoom6.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If
        If String.IsNullOrEmpty(txtRoom7.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If
        If String.IsNullOrEmpty(txtRoom8.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If
        If String.IsNullOrEmpty(txtRoom9.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If
        If String.IsNullOrEmpty(txtRoom10.Text) Then
            TotalRooms = TotalRooms + 0
        Else
            TotalRooms = TotalRooms + 1
        End If


        MessageBox.Show(TotalRooms)
