Word, Passowrd, number, sybols generator

[met0555]

Public Function PasswordGenerator(ByVal lngLength As Long) _
  As String

        On Error GoTo Err_Proc
        Dim strResult As String

        Dim iChr As Integer
        Dim c As Long

        Dim iAsc As String



        For c = 1 To lngLength

            ' Randomly decide what set of ASCII chars we will use
            iAsc = Int(3 * Rnd() + 1)

            'Randomly pick a char from the random set
            Select Case iAsc
                Case 1
                    iChr = Int((Asc("Z") - Asc("A") + 1) * Rnd() + Asc("A"))
                Case 2
                    iChr = Int((Asc("z") - Asc("a") + 1) * Rnd() + Asc("a"))
                Case 3
                    iChr = Str((Asc(" ") - Asc("@") + 1) * Rnd() + Asc("@"))
                Case 3
                    iChr = Asc((Asc("9") - Asc("0") + 1) * Rnd() + Asc("0"))
                Case Else
                    Err.Raise(20000, , "PasswordGenerator has a problem.")
            End Select

            strResult = strResult & Chr(iChr)

        Next c

        PasswordGenerator = strResult

Exit_Proc:
        Exit Function

Err_Proc:
        MsgBox(Err.Number & ": " & Err.Description, _
           vbOKOnly + vbCritical)
        PasswordGenerator = vbNullString
        Resume Exit_Proc

    End Function

[Hack]

Moved To VB6 CodeBank

[met0555]

but it's works on VB.NET 3.5 and ASP.NET 3.5

[mendhak]

You're using labels and GOTOs and Int() and Asc() and Err, though, none of which should be used in VB.NET.