Private Sub Button1_Click[...]
        wurfel1()
        wurfel2()
    End Sub

Sub wurfel1()
 
        Dim wurf1 As New System.Random
        zahl1 = wurf1.Next(6)
 
        Select Case zahl1
            Case 0
                Label1.Text = "1"
            Case 1
                Label1.Text = "2"
            Case 2
                Label1.Text = "3"
            Case 3
                Label1.Text = "4"
            Case 4
                Label1.Text = "5"
            Case 5
                Label1.Text = "6"
        End Select
 
    End Sub
 
    Sub wurfel2()
 
        Dim wurf2 As New System.Random
        zahl2 = wurf2.Next(6)
 
        Select Case zahl2
            Case 0
                Label2.Text = "1"
            Case 1
                Label2.Text = "2"
            Case 2
                Label2.Text = "3"
            Case 3
                Label2.Text = "4"
            Case 4
                Label2.Text = "5"
            Case 5
                Label2.Text = "6"
        End Select
 
    End Sub