Tving script til at inkludere tal.

Jeg har fået lavet følgende script der generer en streng med 8 random karakterer.

Public Function pass(Optional intLength As Integer = 8, Optional boolIncUpper As Boolean = False, Optional boolIncSign As Boolean = False)

    Dim strPass As String
    Dim strLower As String
    Dim strUpper As String
    Dim strNumber As String
    Dim strSign As String
    Dim strChars As String
    Dim intMax As Integer
    Dim i As Integer
    Randomize
    strLower = "qwertyuiopasdfghjklzxcvbnm"
    strUpper = "QWERTYUIOPASDFGHJKLZXCVBNM"
    strNumber = "123456789"
    strSign = "-^@[;:],./!""#$%&'()=~|`{+*}<>?_"

    strChars = strLower & strNumber & strUpper

    If boolIncUpper = True Then
 
        strChars = strChars & strUpper
 
    End If
 
    If boolIncSign = True Then
 
        strChars = strChars & strSign
     
    End If

    intMax = Len(strChars)
 
    For i = 1 To intLength
 
        strPass = Mid(strChars, Int((intMax - 1 + 1) * Rnd + 1), 1) & strPass
 
    Next i

    pass = strPass

End Function

Det virker fint, bortset fra at den SKAL inkludere både tal, store bogstaver samt små bogstaver. Lige nu kommer der som hovedregel mindst en af hver, men det hænder der ikke gør.

Hvordan får jeg det skrevet ind i det?