Random Password Generator

I wrote this to help me generate a random password for a workbook. I am happy with it so far, but I was wondering if there is a way, to shuffle the order of the variables? So, instead of MyPassword always being A, B, C, D, E etc

Sub RandPass()
Dim A As String, B As String, C As String
Dim D As String, E As String, F As String
Dim H As String, I As String, J As String
Dim K As String, L As String, M As String
Dim MyPassword As String
Dim v

ReDim v(33 To 47) As Variant
A = Chr(Int((UBound(v) - LBound(v) + 1) * Rnd + LBound(v)))..............