Visual basic code for 2player dice game with message box saying which player wins?

Here's a simple Visual Basic code snippet for a two-player dice game that rolls dice for each player and displays a message box indicating the winner:

<code class="language-vb">Dim player1Score As Integer = CInt(Int((6 * Rnd()) + 1))
Dim player2Score As Integer = CInt(Int((6 * Rnd()) + 1))
If player1Score > player2Score Then MessageBox.Show("Player 1 wins with a score of " & player1Score & "!") ElseIf player2Score > player1Score Then MessageBox.Show("Player 2 wins with a score of " & player2Score & "!") Else MessageBox.Show("It's a tie with both players scoring " & player1Score & "!") End If
</code>

This code randomly generates scores for both players and uses a message box to announce the winner or if there's a tie.