Word, Passowrd, number, sybols generator

Code:

---

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

---

Moved To VB6 CodeBank

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

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