object problem

Hej E.

Jeg kan ikke få nedenstående til at kalde kast funktionen hvergang koden looper.
Kan i se hvorfor?

  Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim kast As New Terning()
        Dim Resultat As String
        Dim Res1, Res2, Res3, Res4, Res5, Res6, n As Integer
        Dim AntalKast As Integer
        Dim myarray(10) As Integer
        AntalKast = txtAntal.Text
        n = 0
        Res1 = 0
        Res2 = 0
        Res3 = 0
        Res4 = 0
        Res5 = 0
        Res6 = 0

        Dim test As String

        Dim i As Integer
        Dim v As Integer
        Do While i < AntalKast

            test = kast.faceValue.ToString
            If test = "1" Then
                MessageBox.Show("du har slået en 1 er")
            Else
            End If


            i = i + 1
        Loop



       
    End Sub

Og Object

Public Class Terning
    ' Klassens data er private, så de kun kan
    ' tilgås via klassens metoder (Indkapsling)
    Private _ojne As Integer

    ' Konstruktøren kaster terningen
    Sub New()
        kast()
    End Sub

    ' Kaster terningen
    Public Sub kast()
        Randomize()
        _ojne = Int(6 * Rnd() + 1)
    End Sub

    ' Aflæser aktuel værdi (antal øjne teringen viser)
    Public ReadOnly Property faceValue() As Integer
        Get
            Return _ojne
        End Get
    End Property

End Class

Problemet er at den bare retunere samme indhold de antal gange som txtAntal indeholder og ikke "kaster" op ny.

Håber det er til at forstå :-)