.vbs script NEW

Randomize()
blnStartOneWord = True
blnForceWordNumLetters = True

Function MakeWord(intNumLetters)

    If blnStartOneWord = True Then

        If blnForceWordNumLetters = True Then

            For x = 1 To intNumLetters
                intCharNum = Int((Rnd * 26) + 1)
                strWord = strWord & chr(123 - intCharNum)
            Next

        End If

    End If

    intChoiceSayInfo = Int((Rnd * 3) - 1)

    If intChoiceSayInfo = -1 Then
        MsgBox "no"
        'Exit Function
        MakeWord(intNumLetters + 1)
    ElseIf intChoiceSayInfo = 0 Then
        MsgBox "maybe"
        'Exit Function
        MakeWord(intNumLetters + 1)
    ElseIf intChoiceSayInfo = 1 Then
        MsgBox "yes " & strWord
    End If

End Function

MakeWord(1)