Faster alternative to randomize

Sub M_snb()
  Dim sn(28 * 10 ^ 4, 0)
  Randomize
  
  For j = 1 To UBound(sn)
    sn(j, 0) = Mid(Join(Array(Chr(65 + Int(25 * Rnd)), Chr(65 + (25 * Rnd)), Chr(65 + Int(26 * Rnd)), CLng(10 ^ 5 * Rnd)), ""), 1 + Int(3 * Rnd))
  Next
    
  Sheet1.Cells(1, 4).Resize(UBound(sn) + 1) = sn
End Sub