Problem med yatzy spel

Projektet som jag håller på med i skolan är just nu ett yatzy, fråga mig inte varför men nu när man ska lägga till "2 Par", "yatzy" osv. börjar det strula.

Jag har 5 textrutor indexerade från 0 till 4. Där slumpas ut olika siffror som man sedan sparar med koden:

result = InputBox("Ange vad du vill spara. (1 - 15)")

For i = 0 To 4

If result = 1 And Text18(i).Text = 1 Then
Text1.Text = Val(Text1.Text) + Val(Text18(i).Text)
End If

Det sparas i olika textrutor med hjälp av en inputbox, tex. Ettor är numrerade 1. så om man kör in en etta i inputboxen plussas alla ettor i text18 indexet.

Problemet kommer nu när jag ska göra en "stor stege" och andra kombinationer. "6 - 5 - 4 - 3 - 2" och sedan ska den skippa sista siffran, plussa ihop dessa och lägga dem i tex. "Text14.Text". Tänkte om någon kanske gjort ett yatzy och kan dela med sig av sina koder eller dylikt.

:stud

Hej!
Jag gjorde ett yatzy för någon månad sedan. Det är nog inte uppbyggt på samma sätt som ditt, och koden är inte heller kommenterad. Men om du är intresserad kan du få koden. (Det är skrivet i VB6)

Mvh
Anders

det hade varit extremt trevligt! :D Kan ju se lite hur ditt är uppbyggt.

Jag har lagt upp en zipfil här http://member.webforum.nu/4878/yatzy.zip

Hoppas att det kan var till hjälp

tackar och bockar!