Private Sub FragenGenerator_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) _
                                      Handles FragenGenerator.Click
 
        Label_7101.Text = Fragennummer()
 
    End Sub

Function Fragennummer() As String
 
        Dim rnd As New System.Random(), zahl As Integer, stelle As Integer, _
          treffer As Boolean
 
        zahl = rnd.Next(1, 232)
        treffer = False
 
        Do While treffer = False
            stelle = InStr(1, Label_7101.Text, CStr(zahl), CompareMethod.Text)
 
            If stelle = 0 Then
 
                treffer = True
 
            Else
 
                zahl = zahl - 1
 
                If zahl = 1 Then
                    zahl = 232
 
                Else : End If
 
            End If
 
        Loop
 
        Fragennummer = CStr(zahl)
 
    End Function

der Hund ist Dir im Sturme treu - der Mensch nicht mal im Winde
\"Kampfhunde\" Liebhaber