Sto facendo un piccolo programma che crea codice HTML automaticamente, alcune funzioni mi servono che siano casuali e che debbano essere visualizzate a schermo (cioé in mezzo al codice in una textbox apposita).

In poche parole il risultato a schermo dovrebbe venire dopo una serie di numeri generati casualmente, per esempio, creo 4 numeri casuali, assegnati ad altrettante variabili, il numero più basso viene eliminato e gli altri 3 vengono sommati, allora ho scritto una cosa del genere:

codice:
 Dim pvran1x As New Random        Dim pvran2x As New Random
        Dim pvran3x As New Random
        Dim pvran4x As New Random
        Dim pvran1 As Integer
        Dim pvran2 As Integer
        Dim pvran3 As Integer
        Dim pvran4 As Integer
        Dim pvsom1 As Integer
        Dim pvsom2 As Integer
        Dim pvsom3 As Integer
        Dim pvsom4 As Integer
        Dim PV As String
        pvran1 = pvran1x.Next(1, 7)
        pvran2 = pvran2x.Next(1, 7)
        pvran3 = pvran3x.Next(1, 7)
        pvran4 = pvran4x.Next(1, 5)
        If pvran1 > pvran2 Then
            pvsom1 = pvran1
        ElseIf pvran1 > pvran3 Then
            pvsom1 = pvran1
        ElseIf pvran1 > pvran4 Then
            pvsom1 = pvran1
        Else
            pvran1 = 0
            pvsom1 = 0


        End If
        If pvran2 > pvran1 Then
            pvsom2 = pvran2
        ElseIf pvran2 > pvran3 Then
            pvsom2 = pvran2
        ElseIf pvran2 > pvran4 Then
            pvsom2 = pvran2
        Else
            pvran2 = 0
            pvsom2 = 0


        End If
        If pvran3 > pvran1 Then
            pvsom3 = pvran3
        ElseIf pvran3 > pvran2 Then
            pvsom3 = pvran3
        ElseIf pvran3 > pvran4 Then
            pvsom3 = pvran3
        Else
            pvsom3 = 0
            pvran3 = 0


        End If


        If pvran4 > pvran1 Then
            pvsom4 = pvran4
        ElseIf pvran4 > pvran2 Then
            pvsom4 = pvran4
        ElseIf pvran4 > pvran3 Then
            pvsom4 = pvran4
        Else
            pvsom4 = 0
            pvran4 = 0
        End If
        PV = pvsom1 + pvsom2 + pvsom3 + pvsom4


e apparentemente sembra funzionare, ma alla fine compaiono sempre gli stessi numeri (e mi pare pure nella stessa frequenza, cosa che mi ha fatto pensare che il mio manuale dice castronate e questo è un generatore di numeri pseudo-casuali, ma va be') e il risultato di tutta l'operazione è sempre un multiplo di 3, e questa cosa non riesco a comprenderla. Qualcuno potrebbe aiutarmi, ci sto sbattendo la testa da un pomeriggio e sono quasi sicuro che il problema sia la creazione dei numeri casuali, visto che il sistema di controlla sembra giusto (comunque l'ho postato pure per avere qualche consiglio pure su di esso xD)


Grazie mille in anticipo per l'aiuto