たとえばこんな感じ。
┌──────────────────────────────────────┐
│Public Sub ランダム文字生成()                                               │
│    Dim result As String: result = ""                                       │
│    Dim i As Long, dw(0 To 2) As String                                     │
│    Randomize                                                               │
│    For i = 1 To 8                                                          │
│        dw(0) = Int(Rnd * 10)               ' 数字(0～9)                    │
│        dw(1) = Chr(Int(Rnd * 26) + 65)     ' 英大文字(A～Z)                │
│        dw(2) = Chr(Int(Rnd * 26) + 97)     ' 英小文字(a～z)                │
│        result = result & dw(Rnd * 2)                                       │
│    Next i                                                                  │
│    MsgBox result                                                           │
│End Sub                                                                     │
└──────────────────────────────────────┘
要点としては以下の通りである。
┌───────┬──────────────────────────────┐
│Randomize     │乱数をシャッフル                                            │
├───────┼──────────────────────────────┤
│Rnd           │0以上1未満                                                  │
├───────┼──────────────────────────────┤
│Int(Rnd * 10) │0～9                                                        │
└───────┴──────────────────────────────┘