Die Rnd-Funktion liefert in VB Rückgabewerte zwischen 0 (einschließlich) und 1 (ausschließlich). Du mußt also überprüfen, ob der Wert z.B. größer als 0.5 ist, oder schreibst Dir eine eigene Random-Funktion, die auf der Basis von Rnd Zufallszahlen in einem bestimmten Bereich ermittelt, z.B.
Visual Basic:
Function Random(ByVal low AsInteger, ByVal high AsInteger) Random = Int(Rnd * (high - low)) + low EndFunction
-- Mit 40 Fieber sitzt man nicht mehr vor dem PC. Man liegt im Bett. Mit dem Notebook.